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NPS-?^SCAL is 5 student research project at the Naval 
Pos t^^radua te School, the goal of which is th® irroleventatior 
of the PASCAL programrrine- language on a rri croc ompu t er 
systerr. .\'PS-PASCAL will consist of two programs, a coToiler 
which produces intermediate code, and an interpreter, which 
will interpret the intermediate '^oie, or a translator, which 
will produce target machine code. NPS-PASCAL is designed to 
conform to the requirements of the PASCAL Standard, as 
defined hy the British Standards Insti tute /International 
Standards Organization V/orking Lraft/3. 

The compiler program, the subje^'t of this thesis, 
performs the lexical, syntactic and semantic analysis of a 
PASCAL program. NPS-PASCAL is written in INTPL's PL/'^-SC 
orogramming language and executes or. the CP/h' operating 
system . 
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I. INTRODUCTION! 



A. BACKGROUND 

NPS-PASCAL is an i rpleren ta ti or of *he PASCAL 
pro^rarnin,? lans’uaee on a microcomputer system. MPS-PASCAL 
is a continuing research project in the Cof^nuter Science 
Department at the Naval Postgraduate School, ^^onterey, 
California. The original NPS-PASCAL design and programs were 
writtan by r^AJ Joaquin C. Gracida, USI^C , and LT Robert R. 
Stilwell fSC) USN, in their thesis submitted June 197£. 
Their work is conteirei in Ref. 1. ^!AJ Gracida and LT 
Stilwell implemented the basic contructs of the PASCAL 
language in a one-pass compiler and code generator, '^hesis 
work was continued in June 1979 by LT John L. Eyrnes, USN, 
who added code to implement many missing constructs, and 
developed a number cf user assistance programs. His work is 
contained in Pef. 2. Thesis work was continued a^ain in 
October 1979, with the moal cf ccmpletinc the com.piler 
portion of NPS-PASCAL. Follow-on thesis work will lead to an 
NPS-PASCAL interpreter/translator and a complete PASCAL 
system. In the discussion which follows, it is assumed that 
the reader is familiar with Refs. 1 and 2. 

3. APPPOACR 

The first step in continuing the N?c-?asCAL project was 
to convert the source programs from PL/.Y to PL/Y-SO and 
transfer them from the IPN' 360/67-ba sed timesharing system 
to the Intel Yicroprocessor Development System. This would 
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perrrit the compiler to be developed and deburged in. a 
completely microprocessor oriented environment, and would 
eliminate the need to use the PL/M cross compiler. 

The next step was to study the program listinrs and 
previous theses to gain a detailed familiarity with tne 

project. Included in this step was acquiring a working 

knowledge of the Intel ISIS-II operating system end the 
PL/M-P 0 compiler and its attendant linking and loading 

programs and utilities. Since NPS-PASCVL is compiled under 
the ISIS-II operating system, but executes under the CP/M 
operating sysem, it was also necessary to learn the CP/M 

utilities t*or transferring files between systems, and the 
CP/M run-time debuggers, DDT and SID. 

The largest portion of this thesis effort consisted of 
making corrections and additions to existing code, adding 
code where recessary, traci’^g exe''ution to locate logic and 
data errors, correctine" documentation, and running test 
PASCAL progra’^s. Implementation of the record construct 
required changing the original grammar and correcting the 
parse tables. 

To avoid testing the compiler with syntactically 
incorrect PASCAL urograms, test programs were selected from 
the PASCAL iC.'i Espor^ [3], from various student 

texts on PASCAL, and from the PASCAL Validation SuiteCA]. 
The test programs from the Validation Suit’s were 
particularly helpful, in that they exercised the full range 
of any given PASCAL construct. 
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An attempt was rrade to upgrade and cornl^ts tne 
SY^’^CLTA^LE user assistance program des''ribed in ?ef. 2, 
however, it was abandoned and a substitute program, SY^C^^^P, 
was developed. SY’^IUMP provides an ordered, addressed hex 
durr of the symbol table, d-id provides a mu’r’h mere useful 
and efficient means of accessing the symbol table. 

It was felt that it would be beneficial to in'^lude and 
consolidate the documentation and descriptions from the 
previous theses into a single document, so sectio’^s of Refs. 
1 and 2 appear in this ^’hesls. The apuropriate sections were 
undated to reflect changes in the program '"ode or structure. 
In others, descriptions were expanded and diagram, s were 
added, or the section was included in its entirety. 
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II- ■iZs-Pisc^L c£V£iL2E i::;?L2:!:!2a*£TiQN 

A. NPS-PASCAL LANC-U/C-S EACK5R0UNE 

MPS-PAvSC^L is an inplementa ti of the PASCAL languaese 
based on the BSI/ISO V.'cr.-cin^ Draft/3 of Standard Pascal [3l , 
referred to in this thesis as "STAHD^pD PASCAL." NPS-P^SCaL 
is in compliance with STAiCAPr PASCAL'S definition of a 
conforming processor with the following three exceptio’^s: 

(1) Identifiers, aire''tives, and labels can be of any 
length, as prescribed by STANDARD PASCAL, provided 
their uniqueness can be d etermi ned from the first 
thirty characters. 

f?) Integers are limited to any value between -32,766 
and +32,767. Heal values can take on a+y negative or 
positive value consisting of fourteen digits 
multiplied by ten to the -€4th cower through ten to 
the +63rd power. 

(3) "Erp" is a special symbol, or reserved v;ord. in tne 
MPS-PASCAL vocabulary indicating "end of program." 
Consequently, any program that conforms to the rules of 
STANDARD PASCAL, and meets the above listed qualif i''a ti ons , 
constitutes a syntacti cal ly correct NPS-PASCAL program. 

The University of Toronto's parse table generator I’61 
was used to specify the UPS-PASCAL grammar in LALH(l) form. 
The generator operates on the IHU 363/67 and produces parse 
tables for the language, thus permitting extensions and 
corrections to be made in an easy and efficient manner. 
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5. COI^PILEP ORGANIZATION' 

The compiler structure, die^rerned in ?i,fs. 1, performs a 
single pass throu<?h the source pro-trar, uroduces an 
intermediate language file and may print an optional listing 
of the source program to the console, "^he one pass approach 
was taken to proviae speed and to reduce the size of the 
compiler. The disadvantage of the one-pass design is the 
inability to specify the exact location where program 
execution resumes after a forward branch. To solve this 
problem, labels are placed in the intermediate code where 
execution should continue. The resolution of label locations 
is then the responsibility of the in terpreter/translatcr as 
it scans the intermediate code. 

The ccmpiler builds the symbol table, converts all 
numbers to their internal representation, and generates the 
intermediate code file and the symbol table fil,e. The 
compiler accepts input parameters to control the listing of 
the source program, production numbers, or token numbers. 
The creation of tne intermediate file can also be suppressed 
if it is not needed. 

C. SCAfJNEF. 

The scanner analyzes the source prcgrar- character by 
character and passes each token identified to the parser. 
The scanner can provide a listing of the source statements 
and eliminate comments. 

The scanner is written in four sections which are 
selectively executed depending on the firs^ non-blank 
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NPS-P-*SCAI Compiler Stru'^ture 
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character of the irT:ut string. When the section to execute 
has 'been determined, the remainder of the tohen is scanned 

and placed in the input array A.CCUy, The first "byte of the 
A-CCUr^ array contains the length of the tol>cen. In th° case of 
tokens that exceed the size of the A?RAY (72 bytes), a 
continuation flag 3s set to allow the scanner and parser to 
accept the rest of the token. 

The four sections of the scanner prc''ess strings, 
numbers, identifiers and reserved words, end special 
characters, respectively. The string processing sectioi^ is 
executed whenever the first character of the token is a 
quotation mark. The scanner then accents each surceeding 
character until a second quotation mark is found, indicating 
the end of the string. The section that processes numbers 
determines the type of the number being scanned as it scans 
eath character. This determination is used by subroutines 
later in the co'^pilation process to perform tyre checking 
and conversion to internal representation, '•'hen the scanner 
recognizes an identifier, it searcnes the vocabulary table 
to determine if it is a reserved word. If sc, the scanner 
returrs the token number associated with the reserved word. 
Special characters found in the vocabulary table are handled 
as separate tokens except in two cases. If a period is 
followed immediately by numeric characters, the scanner 
assumes a real number is beinc' scanned. When a pair cf 
special characters occurs consecutively, (for instance ), 
the scanner passes both char<=<cters as a single token after 



13 



assirr.inr ♦'he appropriate token nuirher fron the vocabulary 
table . 

B. st^bcl table 

The sytrbol table is used to st^re the attributes of 
labels, constants, type declarations, variabl® identifiers, 
procedures, functions and file declarations. This stored 
inforn^ation is used by the compiler to verify that the 
proffran^ is semantically correct and to assist in code 
generation. Access to the symbol table is through various 
subroutines using based global variables to uniquely address 
the elements of each entry. 

1. Symbol Table Construction. 

The symbol table is an unordered linked list of 
entries which grows from the last byte of the compiler 
toward high memory. Individual entries are either accessed 
via a chained hash addressing techniq.ue (as illustratea in 
Figure 2), or by means of address pointer fields contained 
in other entries. This latter method of access is required 
since not all entries in the symbol table have an 
identifier, called a printname, associated with them. 

Each location in the hash table contains the nead of 
a singly linked list of entries w’-cse printname, when 
evaluated, results in the same hash value. A zero ir a’^y 
cell of the ha sh table indicates that tnerf= are no er. t r i es 
whose printname produces tnat value. Curing symbol table 
construction or access, the global variable PBI^TNAKE 
contains the address of a string of byt'=s whose first 
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elener.t is the length cf tne current Identifier, followed by 
the identifier's \SCII characters. '^he global variable 
SYi^HASH ccnteins the hash code value of the identifier. The 
hash code is the sur of the hex values of the PRII']T''IAN’T 's 
ASCII characters, modulo 128 (base 12). Entries that produce 
the same hash code are linked together in the symbol table 
by a chair which is accessed via the entry's collision 
field. The chain is constructed in such a way as to have the 
most recent entry at the head of the chain. 

Each entry in the symbol table contains a number of 
fields, seme of which are common to all entries, and seme of 
which apply only to particular classes of entries. All 
entries ha^.^e the same first three fields: th= ''ollision 
field in the first two bytes; the previous symbol table 
entry address field in the third a”d fourth bytes; and the 
form field in the fifth byte. The remaining fields are used 
to uniquely describe each entry's attributes and 
characteristics. 

There are eight different types of entries !’• the 
NPS-PASCAL symbol table. Each of these tynes has a unique 
three bit code in the right-most three bits of its form 
field. The remaining five bits in tne form field further 
subdivide the entry types amone the eight classes according' 
to the particular characterist ics of the type involved. The 
form fiela bit assignments are summarized in Table 1. The 
characteristics are described in detail as each type of 
symbol table entry is presented belov/. 
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FOP.f^ Field Or^^anization 
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La'bel eritries 



a . 

The forr field of a label entry has the value of 
0'2H. The hash value of tne label's printnare is in the next 
byte? the hash value is stored for collision resolution 
later. The length of the label follows in the rext one byte 
field. The printnam^ characters appear, one per byte, after 
the length field. A two byte field following the printnarne 
characters contains a sequentially renerated integer value 
which is assigned as the label's internal label number. This 
value is used as the target for branching in the 
intermediate code. An example of a label entry is shown in 
Fig. 3. 

b. Constant Entries 

The form field of a co’-stant sy-^bol table e^try 
identifies the type of entry, and the particular type of the 
constant as well. There are five valid types of constants in 
NP3-PASCAL: an unsigned identifier with FOP.ih = CIH? a signed 
identifier with ?0?^! = an integer vitn F0Pf< " 39"? a 
real value with FORK = IIH? and a string constant witn FORK 
= 19E. Following the form field are tne nrintname hash 
field, the length field, and the printname characters. 

The value field .may consist of another length 
field and the print name characters in the case of identifier 
and string constants, or it may contain the internal 
r epresenta t i on of a '^o’lstant number (two bytes for integers 
or eight bytes for reals). Two examples of constant entries 
are shown in Figs. 4 and 5. 
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c. Type entries 

WPS-PASCAL has two itinds of type entries in its 
syr"bol table: simple type entries and type declaration 

entries. The simple type entry can either be one of 
MPS-PASCAL's standard types, or a previously defined simple 
type declaration (s'^alar or subrange). In the latter case, a 
simnle tyoe entry is made in the symbol table, with a 
pointer to the scalar or subrana-e type declaration entry. In 
the former case, one of the followin'; standard types will be 
assigned to the type entry. 

Integer - The values of this type are a subset of the 
whole numbers whose range is th'^ set of values: 
-raxint ,-maxint+l , . . . ,-l ,1 , . . .maxint-l.maxirt 

where maxint = 32,76^7. 

Peal - The values are a subset of th= real numbers 
consisting of fourteen digits multiplied by ten to 
the -64th power through ten to the +63rd pow“r. 

boolean - The values are denoted by the identifiers 
"false" and "true", such that false is l=ss than 
true. 

Character - The values of this tyne are the defined set 
of characters described in Pef 6. The follovir.p 
relation ships hold for character types: 



22 



(1) Ths suti<=;i=“t of character values representing: the 

dibits 0 through 9 is ordered and contiguous. 

(2) The suD<^et of character values representing the 
upoer case letters A through Z is ordered and 
contiguous . 

(3) The subset of character values rerresenting the 
lower case letters a through z is ordered and 
contiguous. 

Type declarations entries, however, are generated frorr user 
defined types found elsewhere in the source program. It is 
possible to define a chair, of type declarations. An example 
would be an a rra y of the type a may whi ch is itself o-^ type 
i nt eger . 

The symbol table entry for a type is as follows. 
An integer type has the FORM valu° of 42H , a re^l type has 
the FCPM value of a character type has ^he FOPM value 

of 52H, and a boolean type has the FORM value of SAP. A ''^ORM 
value of TAP inaicates that an additional type declaration 
entry must be accessed. The fi“ld fcllcwing the form is a 
one byte field containing the hash value of the printname. 
The next byte contains the printname's length, which is 
followed by the printname characters of the type identifier. 
The last two bytes contain th= address o^ the specified 
type. Fxa.mples of simple type entries are shown in Figs. 6 - 
9. 
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TYP? = pyal; 
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There are seven differ ent user definable types 
ir N’?S-PASCAL. A type declaration entry is constructed 

whenever a scalar type, subrange type, array type, record 
type, set type, file tyoe , or pointer type is e^r cunter^d . 

Scalar Types. By definition, a scalar type 
is an ordered set of values whose identifiers are enunrerated 
to denote their values. The form fi®ld entry for scalar 
types has the value 27 H. Scaler entries are the only type 
declaration entries that have an accessible printnaine. 
Consequently, the re.Tt two fields hold tne prinf^a^e hash 
value and length. The printname charact=rs follow these 
fields. The next field is a byte value cor.tai”irg the 
enumerated value of the scalar identifier. Th= enumerated 
values (0,1,2...) are assigned to the scalars in the order 
in which they appear in the declaration. The final field is 
a two byte field stori’^g the syrool table address of the 
parent type. The scalar type entry will be pointed to by tne 
variable entry claiming this type. An example of a scalar 
tyoe entry is presented in ^ig. 10. 

(E) Subrange Types. \ subrange type is a 
duplicate decla'^ation of anv other previously defined soalan 
type, integer type, or character type, but with a suecified 
lower and upper bound on its elements. The form field of a 
subrange entry is 2FH for enumerated elements, 4?’“^ for 
integer elements, and SFH for character elements. Bytes six 
and seven store the address of the subrange element ""s parent 
type. Bytes eight and nine hold the low value of tbe range. 
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while the next two hvtes co’^tein th® hia'n velue of the 
range. The following field is two bytes lonr and stores the 
total nurrber of elerents in the range. The displacement 
vector is rot stored with the subrange, sine® any given 
subrange could serve as the index to arrays of different 
base types. The displacement vector is stored instead with 
the array entry itself. This entry will be pointed to by a 
variable entry clairring this type. An example of a subrange 
type entry is shown in ¥ig. 11. 

(3^ Arra^ Tyn®s. The preceding two type 
declaration entries in NPS-PASCAL are called simple type 
entries. They are symbol table entries using a single, 
predefined type. Structured types are co^^posi ti o^ s of types. 
In other words, on® or more tynes are used to describe a 
single symbol table entry. A structured type will have a 
type declaration entry which contains the printname, and 
which points to the structure type entry. 

The array tyoe is a structured type 
' consisting of a fixed nurrber of components that are all of 

I the same type, called the component tyn® . The number of 

I components is specified as a scalar or subrange type and is 

i referred to as the index type. IK'TSC-'^R and RIAL types are 

cot legal i ndex types? however, the scalar or subrange type 
can be of the type integer. 

Tne symbol table format for an a rra y entry 
I has the form value of 17R. Tne following byte specifies the 
number of indices, or dimensions in the array. The next two 



30 



■Il 













type P^. irE = PEE., blue; 



^’srr'ory I 
Address ! 

73A2E 1 

•73A3H j 

73A4E I 

73A5E ! 

73AfH 1 

73A7H I 

7 3 ASH I 

73A9H I 

73AAH ! 

73A3E I 

'73ACH 1 

73ADE i 



SY'^BOL 



Syrbol 






Table 






?0E 


i \ 


C^'LLISICN 




1 > 




00H 


1 / 


ADDRESS 


S4E 


i \ 


PREVIOUS SST^L 




1 > 




73 H 


1 / 


ENTRY ADIRESS 


e?H 


I EOR 


y 


2EH 


! \ 


S^TBL ADDRESS C 




1 > 




73 H 


I / 


PARENT TYPE 


00E 


! \ 


SUBRANGE 




! > 




30H 


I / 


LOW VALUE 


02E 


! \ 


SUBRANGE 




1 > 




00E 


I / 


HIGH VALUE 


23 E 


1 07 SLEr^^f'^TS 



TALI SU3PAMGE TYPE EPTRY 
EIC-7RE 11. 



31 



the first cortaining the 



fields are both two bytes long, 
address of the component type; the second containing tne 

total storage requirement for the array in bytes. The 
eleventh byte of the entry holds a value designating the 
type of the array's component as defined in Table 2. A two 
byte field follows with the symbol table address of the type 
entry of the array's first dimension. This is followed by a 
two byte field which contains the displacement vector for 
this dimension. The displacement vector for each dimension 
represents the distance in bytes between two elements of the 
array which have a difference of one in the corresponding 
subscript. If the array has more than one dimension, four 
more bytes are alloted in the symbol table tc store the 
address and displacement vector of each additional 
dimension. This entry will be pointed to oy tne variable 
entry claiming this type. An example of an array type entry 
is shown in "Fig* 12. 

(4) Record Types. A record is another N?S-PASCAL 
structured type. This structure has a fixed number of 
components, called fields, each of which can be of any 
defined type. The symbol table entry for a record nas the 
form field value of IFE. Bytes six and seven contain the 
storage requirements in bytes for the entire record. Bytes 
eight and nine store the symbol table address of the type 
entry of the lest field contained in the record structure. 
The remaining field entries are located by chaining backward 
to the parent record entry via the previous symbol table 
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entry address. An example of a record type entry is shown in 
Fig. 13. 

Each record field consists of ar identifier 
and a type. The form field of a record entry has a value of 
5FH. The following two fields are bytes for the hash and the 
1 engt h of the printname. The next field holds the print name 
characters. The address of the parent record is stored in 
the next two bytes. The following field has a one byte 
length and is used to store the record field's type. Tae 
value stored is also ta’xen from Table 2. Two more bytes are 
used to store the symbol table address of the type just 
indicated. The last field of this entry is two bytes long 
and holds the offset of the record field from the record 
base . 

NPS-PASCAL supports the variant fi^ld and 
tag field constructs of records. Thes° two hinds of record 
fields have symbol table entries similar to the one 
described above for fields, with the exception of the form 
field, which is EFH for variant fields, and 9FH for tag 
fields. An example of a field entry is shown in Fig. 1^. 

(5) Set Types. The set structure defines a set 
of values which is the power set of a declared base type. 
The base type is required to be a scalar or subrange type. 
The set type symbol table entry has a form field value of 
27H. The following two bytes contain the symbol table 
address of the set type identifier. An example of a set type 
entry is shown in Fig. 15. 
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type CC^'PLE7.=EECCRD 

RE, :real; 
end; 
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type ^lac-=set cclcp; 
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5 t ructure 



(§) lili IZ2ii* 

consisting: of a sequence of components, all of the same 

type, is called a file. A file type indicates a natural 

ordering of the components, whose position in the file 

defines the sequence. A file type declaration entry in the 

symbol table has a form field value of cFE . The symbol table 

address of the file type's identifier is contained in the 

next two bytes. An example of a file type entry is shown in 

Pig. 16. 

?2illl§I t^jFS-PASCAL supports dynamic 

variables which are generated without any correlation to the 
static structure of the program. These variables are 
assigned a special type called pointer type. The form field 
value is set to 37E , while bytes six and seven hold the 
symbol table address of tne pointer type's parent entry. An 
example of a pointer type entry is shown in Pig. 17. 
d. Variable Entries 

Each variable declared in an KPS-PASC AL program 
is inserted into the symbol table, "^he for"" field cf tae 
variable entry contains a value which describes the type of 
the variable. The values for this field and the associated 
types are shown in Table 1. Following the form ’^'ield are the 
fields containing the variable identifier's printnam.e, hash 
value, length, and the printname characters. A two byte 
field which contains the variable's start! ni-' address in 
memory appears after tne printname characters. This add'^ess 
is an offset from the base of the variable area, called the 
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Program Peference Tatle (PHT), which address is assigned ty 
the NPS-P*SCAL code generator. The variable's type 
determines the numter of hytes assigned to store the 
variable in the PHT. The compiler keeps a running total of 
the amount of storage assigned to all variables, and 
includes this value in the pseudo code at the completion of 
a successful program compilation. The interpreter/transla tor 
subsequently converts the relative addresses in the 
intermediate code to absolute address in the final target 
machine. Next is a two byte field which contains the SrTEL 
address of the variable's type. In the case of the standard 
Pascal types integer (FORm. = 0BF), real (lEH), character 
(13H) and boolean (23E) , this is the address of that type in 
the EUILT$IN $TEL . In the case of integer and character 
subranges (23R), this field contains the address cf tne 
subrange type entry. In the case of a scalar (03?), this 
field contains the address of the last of a series of scalar 
(07H) entries. The remaining scalar entries are locate! by 
chaining backward to the variable entry via the previous 
symbol table entry address. If the variable is a complex 
declaration, (array, record, set, file o’' pointer), this 
field contains the address of th° complex type's entry in 
the symbol table. If the variable is of a type previously 
defined in the program, this field contains a pointer to 
that type declaration. Examples of variable entries are 
shown in Figs. 16 - ?0. 



42 



VAR X: integer; 
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SY.'^'BCL TABLE VARIABLE 
FIGURE 16. 
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ENTRY (INTEGER) 
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VAR OP: (PLUS ,MIf!US .TI^ES ) ; 
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SY’^BOL TABLE VARIABL 
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ENTRY (SCALAR) 
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VAH AiAR^AYCI . . 5] c? integer; 
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SYMBOL TABLE VARIABLE ENTRY (COMPLEX) 
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e. Procedure and junction Entries 

Every procedure and function in an NP5-?ASC‘L 

program has an associated entry in the symbol table. In the 
case of a procedure entry, the form field is assigned the 
value 04H. The hash value, length of the printname, and the 
printnarre characters immediately follow the form field. A 
one byte field follows and stores the number of parameters 
associated with the procedure. A two byte field is next, 
storing the symbol table location of a listing of the 
procedure's parameter types. This listing is referenced by 
the compiler to ensure proper mapping, and is located 
immediately after the final procedure entry in the symbol 
table. Following the parameter type's address field in the 
procedure entry are three more two byte fields. The first 
field gives the PET address assigned to tne procedure 
identifier. The second field gives the ?RT address assigned 
to the procedure save block pointer (S3?). The SB? permits 
recursive subroutine calls, and will be explained in the 
section on Code Generation. The final field in the entry 
holds a label value that must be branched to when the 
procedure is invoked. An example of a procedure »ntr 2 <^ is 
shown in Fig. 21. 

A function entry in the syribol table duplicates 
a procedure entry with two exceptions. A function entry has 
a form field value of 05HJ and one byte field is adued at 
the end of the entry to designate the type of the function. 
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PHOCEDURI LC (X: integer; VAR Y: INTEGER): 



Memory I 


Symbol 






Address | 

1 - 


Table 






7 46 EE i 


00E 


1 \ 


COLLISION 


\ 

1 




! > 




'’46EE 1 

1 _ 


00H 


I / 


AEERE3S 


746^H I 


60H 


i \ 


PBEVIOUS SBT3L 


1 

I 




I > 




7470 E ! 
1 


74E 


! / 


ENTRY ADERESS 


I 

7471H j 

1 _ 


04 H 


! FORM 




747 2H j 
1 


IBH 


! EASE 




7473E 1 
1 


02E 


1 PRINTNAME LSNGTE 


1 

7474H 1 


4CH 


j ASCII CHARACTER L 


74'75E I 
1 


4EH 


1 ASCII CHARACTER 0 


7476E ! 
1 


02H 


I NUMBER OF PARAMETERS 


\ 

7477 E 1 


97E 


I \ 


SBTiL ABLRFSS 0^ 


1 

! 




I > 




7476H j 
1 


74H 


! / 


PARAMETER LISTING 


7479E 1 


22H 


i \ 


PRT LOCATION 


1 

1 




! > 




747AH j 
1 


00H 


1 / 


ASSIGNEE 


1 

747BH 1 


2SH 


I \ 


SAVE BLOCK PGINTE 


1 

1 




! > 




747CE ! 
1 


29 H 


j / 


LOCATION IN PRT 


1 

747 DE j 


01H 


1 \ 


LABEL PRECEEEING 


1 

1 




1 > 




747EE 1 


03E 


! / 


PROCEDURE CORE 



SYMBOL TABLE PRCCSDURE ENTRY 
FIGURE 21. 



47 



Junction type assignments are also ta^en from Table 2. An 
example of a function entry is shown in Tig. 22. 

(1) loiEil . Formal parameters provide 
a mechanism that allows a procedure or function to te 
repeated with various values being substituted. The formal 



parameters 


are 


decl a red 


i n 


the 


prcceaure cr function 


decla ra tion 


and 


can be 


of 


four 


types: value parameters, 



variable parameters, procedure oarameters and function 
parameters. Fach declared parameter has an associated symbol 
table entry. A value parameter entry has exactly the “^ame 
format as the variable entry. A variable param/eter entry 
also duplicates a variable symbol table entry, with the 
exception of the form field. The high order bit of the form 
field is set to one for all variable parameters. Prccedure 
and function parameters are entered as des''ribea above for 
procedure and function symbol table entries. 

Figure 23 illustrates a sample series of symbol 
table entries with a procedure e’ltry followed by various 
formal parameter entries. Note that the final few bytes show 
the listing of the procedure's paramet'^r types that will be 
utilized for mapping actual parameters into the formal 
parameters . 

E. PARSER 

The parser is a table driven automaton and is modelled 
after the ALGOL-M [T] . Tne LALRl’-^-) parser generator [6] 
produced the required parse tables and the vocabulary table, 
VOCAB. The parser operatp>s by receiving tokens from the 
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FUNCTION YZ (?,A:RSAL) :H3AL; 
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SYf-lPOL TABLE FUNCTION FNTPY 
FIGURE ;d2. 
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scanner, analyzing; them to determine if they are a part of 
the NPS-PASCAL grammar, then accents or rejects the token 

according to the grammar. If the token is accepted, one of 
two actions is taken. The parser ray stack the token and 
continue to request tokens in the lookahead state, or it may 
recognize the right part of a valid production and apply the 
production state. This results in a stack reduction. If the 
parser rejects the token, or determines that the token 
received does not constitute a valid right part cf any 
production in the grammar, a syntax error message will he 
printed to the console and the RECOVER procedure is called. 

RECOVER is a procedure that permits continued program 
compilation in spite of the detection cf a syntax error. The 
parser hacks up one state and attempts to continue parsing 
from that state. In the event cf failure, the parser 
continues to back up until the end of the currently tending 
production is located. At that point the invalid token is 
completely bypassed, and an attempt is made to parse the 
following token. This process continues until an acceptable 
token is found. 

The parse stacks in NPS-PASCAL consist of a state stack 
and eight auxiliary stacks. The auxiliary stacks are 
parallel to the parse stack and are used to store 
information extracted from the symbol table needed during 
code generation. Tne stacks are: 
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BA.SE$LOC - stores the syrrbol table address of tne current 
identifier; 

FORt^$FIELL - store the form field value of the current 
identifier as reflected in the symbol table; 
TYPF$ST^CK - stores the type value of the identifier; 
??T$ADDR - stores the PRT address of the identifier; 
LA3SL$STACK - stores the label value to be used with 
branching instructions; 

PAR'^iMUM “ stores the number of formal parameters associated 
with a procedure or function; 

PAR!^$NUf^$LOC - stores the sybol table address of the list of 
formal parameter types associated with a 
procedure or function; 

FXPRFSS$STK - stores the type value of an expression. 

F. CODE GENERATION 

The parser not only verifies tne syntax of the source 
statements, but also controls the generation of the 
intermediate code by associating semiantic actions vath 
production rules. When a reduction takes place, the 

SYNTHESIZE procedure (in SYNTE2.SHC) is called with the 
production number as a parameter. The SYNTHESIZE procedure 
contains an extensive case statement keyed by the production 
number to perform the appropriate semantic actions. The 
syntax of the language and the semantic actions for each 
reduction are contained within the listing of the module 
SYNTE2.SRC . 
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Funlarrental to unders ta nii rg the compiler is a detailed 
knowledge of the NPS-PASCAL data structures, the ps=udo 
operators, the use of proce'iures a-^d fun^ticns, and the 
compunica t ion paths between the compiler and the user. The 
pseudo operators are described in detail in Eef. 2. These 
other elements are described below to assist in 
understanding the r\?S-?ASCAL corpiler constructs and to 
explain tne logic used to generate the intermediate code. 
That code will later oe used to venerate the target machine 
code . 

!♦ Sioi^ge Space Allocation 

The amount of storage allocated to a variable is a 
function of the type of the iter. For ®ach progrm variable 
requiring storage space, the compiler soecifies the number 
of bytes to be alloted, and keeps a running total of the 
number of bytes assigned. The total count is then passed to 
the code generator to establish the size of the Program 
Reference Table (PET). 

a . Byt e Data 

Byte data items are stored in a singl® byte in 
memory. Byte data items can represent characters, numbers, 
or boolean variables. 

b. Integer Data 

Integers are represented by two byte locations 
in memory with the high order byte preceding tne low order 
byte of the integer number. The storage design imitates the 
function of the 6£60A microprocessor [8] in its movenent of 
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data frorr rerory or frotr the stack into the processors 
double byte registers during program execution. Integers are 
represented in two's complement form, with the high order 
bit acting as the sign bit. A zero high order bit indicates 
a positive integer, while a high order bit of ore indicate a 
negative number. 

c. Real Data 

Real numbers are represented in binary coded 
decimal (3CI) formjat. Each real number is representea by 
fourteen decimal digits and is stored in eight consecutive 
bytes. Vhen loading a BCD value onto the execution stack, 
the byte located at the lowest memory address contains the 
sign of the number along with the sier. and magnitude of the 
exponent. Succeding bytes represent two decimal digits and 
are ordered backwards, such that the byte closest tc the 
exponent byte contains the last two decimal digits of tne 
number, while the last byte contains the left-ncst two 
decimal digits of the numoer. The format of a BCD num.ber in 
memory is displayed in Fig. 24. 

“^he exponent byte in a BCD number uses the high 
order bit to indicate the sign of the number: a one 
indicates positive, a zero negative. The remaining seven 
bits represent the exponent and its sign. The exponent is 
biased by 64 so that values greater than 64 (i" seven bits) 
depict a positive exponent and values less than 64 depict a 
negative exponent; the exponent is the difference between 64 
and the actual value. The bias allows exponent values 
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ranging fronr -64 to +63. The BCD nun-'oer always assurr.ps that 
the decimal point is normalized cefore the first digit. 

d. String Data 

Strings are stored sequentially. The first byte 
of the string stores the string length, thus limiting 
strings to a length of 255 bytes. Immediately following the 
length byte are the ASCII characters of the string. 

2. Arithmetic D 2§I§li£ILS 

a. Logical Operations 

Logical, or boolean, operations act on byte 
values of zero and one only. A zero value indicates a false 
condition, while a non-zero value iniif'ates true. Logical 
onerations requiring comparison between two elements returns 
the value of the operation in the true or false form. 

b. Integers 

Arithmetic operations with integers are 
performed by taking the top two values from the eTecution 
stack, and placing them in tne double byte registers in the 
80S0 microprocessor, and then carrying out tne requested 
operation using the microprocessors native functions. 
Integer arithmetic includes addition, subtraction, 
multiplication, division with truncation, modulo division, 
logical comparisons, and transformations to real (BCD) 
format. All computation results, except for real 

transformations, are returned to the execution stack in the 
two byte integer format. Relational operations on two 
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integer values are carried out in accordance with the rules 
for integer arithmetic, 
c. Reals 

Real arithmetic operations are more complex than 
those with integers due to the nature of the RCP format. The 
process is similar to that of integers in that pairs of real 
number bytes are moved to the S080 registers. The required 
operation is performed, and the resulting real value is 
returned to the execution stack in the eight byte RCr 
format. Real values also follow the rules of integer 
arithmetic when involved in relational operations. 

2* Set Operations 

The set operations of set union, set difference, set 
intersection, set equality and inequality, set inclusion and 
set membership are not implemented in this version of 
NPS-PASCAL. 

i* String Operations 

The relational operators of equality and inequality 
have been implemented for strings. The remainder of the 
relational operators denote lexicographic ordering according 
to the character set oraerins, and are not implemented in 
this version of NPS-PASCAL. 

5* and functions 

Procedures and functions, also called subroutines, 
give NPS-?ASC^.L the ability to display program segments as 
explicit subprograms. The only difference between a 
procedure and a function is that the function returns a 
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value to the top of the execution stack after it is invoked; 
a procedure does not. This means that a function ^all 

actually represents an arithmetic expression. Procedure 
calls, however, s’-and alone as proerami statements, .^n 
analysis of the following procedure and function 
implementation hy Blanton and Moore [9] concluded that the 
current design is inadequate. Insufficient information is 
passed to allow parameter mapping from the execution stack 
to the PHT. 

a. Invocation 

Procedures and functions can be invoked with 
zero or more actual parameters. The list of actual 
parameters is substituted into th® corresponding list of 
formal parameters declared in the procedure or function 
definition. If the formal parameter is a variable parameter, 
the actual parameter has to be a variable also. Should the 
formal parameter be a value parameter, then the actual 
parameter can be an expression, provided that the expression 
type matches the formal parameter type. For procedure and 
function formal parameters, the actual parameter must be a 
procedure or function identifier. Actual parameter types are 
checked against formal parameter types stored in the symbol 
table during program compilation. The method of passing 
actual parameters' values is via the executio’i stack. The 
procedure or function's memory location is generated in the 
form PBO <label>, where PRO is a mnemonic meaning "branch to 
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subroutine", and <label> is the label value stored in the 
subroutine's symbol table entry. 

b. Storage Allocation 

All parameters and variables declared within a 
procedure or function are assigned a location in tne PTiT. 
These locations immediately follow the ??T location of the 
procedure or function identifier. Upon recognition of a 
comulete subroutine, another PRT location is allocated. This 
location is called the Save Block Pointer (SB?) for the 
subroutine. The FPT locations extending from the 

subrout ir.es 's identifier location through the S3?r make up a 
Pocedure Control Block (PCS). The effect is that the PCB is 
a contis'uous set of PRT cells, as seen in Pig 25. The PCB 
construct is based on the one used in ALG-OL-S [li^l , and its 
usefulness is in recursive calls to a procedure or function. 

c. Parameter Mapping > 

NPS-PASCAL uses a scheme si.milar to ALGCL-F flGl 
in mapping the actual parameters of a procedure or function 
into its formal param'eters. After recognition of a 
subroutine identifier, the actual parameters that are 
identifiers have their intermediate code generated in the 
form of a "PARK" or "PARMV" mnemonic followed by the PRT 
location of the actual parameter, '^hese mnemonics load the 
execution stack with the values of tne actual parameters. If 
the actual parameter is an expression, the expression result 
will be loaded automatically on top of the execution stack. 
Consequently, the compiler generates the mnemonic "PAR'^x" 
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:e: cfap; 

:I0N ZtPO (r, A: RIAL): REAL; 
X, Z: REAL; 

SX: boolean; 
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A PROCEDURE CONTROL BLOCK 



FIGURE 25. 
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after recognizing a complete expression that is acting as a 
value parameter. PARMX will not require any action hy the 

code generator. 

With the actual parameter in place, program 
control will branch to the procedure or function itself. The 
compiler generates code to place three items on top of the 

execution stack. The first item is the number of formal 

parameters (f) in the subroutine, the second is the PRT 

location of the subroutine's identifier (IDLOC), and the 
third is the SBP address in the PRT (SBPLOC) of the 

subroutine. The compiler then generates the SAVP operator, 
followed by the total byte count of PRT storage (t) assigned 
for the subroutine's identifier and all formal parameters. 
This is followed by a listing of byte storage required by 
each formal parameter (Pi) in the PRT in descending order. 
The execution of the SAVP operator is expected to cause the 
following actions to be generated, by the code generator. 

(1) The SBP location is examined 

(a) if SBP = 0 then SBP := 1, else 

(b) SBP > 0 and segment length (SBPLOC - IDLOC + 2) 
is obtained from the top of available memory, 
for example, at address x. The PCB is then 
copied from the PRT to the memory segment at x. 
The contents of the segment at x is then called 
the Save Block (SB). SBP := x. 
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(2) The top two elersnts of the execution staci^ are 

deleted; the next element (f) is copied and 
deleted from tne stack; Pi = p(l). 

(3) If f = 0 then halt. All actual parameters have been 

copied into the formal parameter locatiors in 
the PCP. 

(4) PET location (IDLOC + t - p(i)) := top of execution 

stack; delete the tcp element cf the execution 
stack; t := t - p(i); p(i) := p(i) 1. 

(5) f := f - i; go to step (3). 

This process ensures that recursively calling a suhroutine 
will not destroy the local variables and parameters of any 
preceding calls. 

d. Function Return Value 

Coupled with the SAVP operator is the UNS? 
(unsave) operator that reverses the actions of SA^'P. Two 
parameters are required at the top of the stack, the SB? 
locations in the PPT (S5PL0C), and the PFT location cf the 
suhroutine identifier (IDLOC). The actions, then, of UNSP 
are . 

(1) The value stored at IDLOC is copied to the tcp 
of the stack (this returns a value for the 
function calls; this value will he deleted for 
procedure calls ) . 

(2) If the value of S3PL0C is greater than 1 then 
the S3 at location S3PL0C in the free memory 
area is copied hack to the PCB and the memory is 
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¥AH Y: integer; 



PROCEDURE LO (X: INTEGER; VAR Y; INTEGER); 
VAR TErP: REAL; 

BEGIN 

TEN?:=S0RT(X) 

Y:=TRUfIC(TE.'^P); 

EMC; 

D:=6; 



l6(49,D) ; 
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FIGURE 2f. 
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freed. If SBP = 1 then SPP := 0. Consequently, 
the UNSP operator returns a value from function 

calls, and re stores the PCB in the event of 
recursive calls. Figure 26 shews the actions of 
the SAVP and UNSP operators on the PP.T and the 
execution stacx. 

e. Forward Declared Procedures and Functions 

To permit the invocation of a procedure or 
function prior to its definition NPS-PASCAL utilizes a 
forward reference. The forward reference consists of the 
procedure (function) head, followed by the word FOPWA.RD. 
When the procedure (function) is defined later in the 
program, the parameters are not repeated. FCEWAP.D is not a 
reserved word in NPS-PASCAL. It is instead referred to as a 
directive. Directives are identifiers in NPS-PASCAL, that 
can only occur immediately after a procedure or function 
heading. Directives are contained in the BUILT$IM$T3L . 

f. Standard Procedures and Fun''tions 

The built-in procedures and functions that 
currently exist in NPS-PASCAL corresnond to the standard 
procedures and functions specified in STANDAPD PASCAL. Their 
operation, however, is considerably different from user 
defined procedures and functions. The compiler first 
generates code for any subroutine a':'tual uarameters. A 
mnemonic for the built-in procedure or function is then 
generated which tells the interpreter /trans lator that it 
must remove the parameters fom the executior stack, perform 
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the requested operation, and return the resul t to the stack. 
The standard procedures for input and output (Read, Readln, 
Write, and Writeln) will not require special action to he 
taken hy the interpreter/translator. Th“ remaining standard 
procedures dealing with files and pointer variables generate 

mnemonics that will require action by the 
interpreter/translator. 

§ • In ou t-Outuut 

Input and output (I/O) can be handled in two ways: 
via console and via disk. Console I/O refers to the device 
the NPS-PASCAL user is utilizing to provide commands to the 
system — usually a CRT terminal or teletype. Disk I/O 
refers to utilizing auxiliary files on the disk for data 
manipulation . 

Input from consle I/O is achieved through RFAD or 
READLN statements. Console output is accomplished by the 
WRITE and WRITELN statements. Input to the console is 
accomplished by an operating system routine that reads one 
full console line into an input buffer. Tne code generator 
generates code to examine the buffer and convert ASCII 
characters contained within the buffer into appropriate 
NPS-PASCAL internal integer, real or string format. The 
input value is associated with the appropriate read 
statement variable parameter and then stored in the memory 
location allocated for that variable. A write statement 
takes the internal representations of integer, decimal, or 
byte values and converts tnem. to their ASCII character 
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forrat. These values are tnen passed to an operating system 
print routine for console output. Constants and string 

variables are stored as ASCII strings in the intermediate 
code and the interpreter/translator will generate code to 
send them character by character to tne system print 
routine. 

Disk I/O is achieved through the same read and write 
statements utilized for console I/O. However, to read data 
from a disk file requires that the file identifier be 
specified as the first parameter in a read statement's list 
of actual parameters. The file identifier has to be 
specified in the same manner for disk write statements as 
well. The file identifiers used in read and write statements 
must be declared in a variable declaration part of a program 
block, or as a program parameter in the program* declaration 
(called an external file). The file identifier has a 

specific PRT entry assigned by tne compiler. At program 

1 

execution, space will have to be allocated on the N'PS-PASCAL 
stack for the File Control Block (FCB) information necessary 
to interface file operations with the operating system. 
Additionally, space should be provided for a 128 byte I/O 
buffer for every declared file. 

!• ^£S-PASCAL Pseudo Operators 

A complete description of each of the HPS-PAPCAL 
pseudo operators is presented i’l Fef. 2. 
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III. PROILF^S lES'JTiri^r AN! CORRSCTFr 



As noted in Ref. 2, the 5U I LT^ IN $?EL rtust be located at 
nerrory location 21<36K in the executable rrodule, since the 
collision field and previous entry addresses are calculated 
and entpred by hand. Care rust be taker during the LINK and 
LOCATE prograns to ensure that the EUILT$IN$TEL is located 
properly. Since the LINK pro<^rar adds object rodules 
together linearly, it is necessary to specify TAELES .OEJ as 
the first rodule in the comrard line to the LINK prograr. 
While organizing the LINKed together rodules and adjusting 
the address into absolute code, the LOCATE prograr uses a 
default order of COIF, STACK, LATA, MEMORY. Constants in the 
?L^!-S0 source prograr (distinguished from variables by the 
EATA directive), however, are allocated rerory first, before 
any executable code. Forcing the rerory address assignrents 
to start at 01O3H with the directive (COLE ICCE) to the 
LOCATE prograr places BUILTilN^TEL at 1C3H, sc a three byte 
dumry field was added right before th= EtILT$INATEL 
declaration. The first three bytes of the final C?/Y 
executable file (ICCH, 1015 and 102H'l are used to store a 
jure instruction which points to the compiler entry point. 

The two previous theses used an £060 sir.ulatcr wnich ran 
on the IBf^ 363 and zeroed rerory prior to loading the 
compiler. Many of the variables were not initialized, 
instead, relying on a zeroed rerory location for their 
value. PL/M-80 includes two directives, INITI.AL end TATA, 
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which are used to set the initial value of variables and 
constants, respectively. 

An additional difference between PL/K and PL/K-S? is 
that the latter allows an implicit dimension specifier. Ihis 
allows the table declarations in TABLES. SBC and other lon^ 
declarations to be made without knowing or counting the 
exact length of the data string. The implicit dimension 
specifier is invoked by entering an asterisk instead of a 
decimal constant, i.e. instead of (48). 

Lue to a deficiency in the grammar and its associated 
tables, a record structure was not recognized until the END 
statement was parsed. It was then too late to initialize the 
variables used to analyze each record declaration. As an 
interim fix, the code to handle a record declaration had 
been written into the scanner portion of +,he compiler. 
Contrary to the structure of the compiler, when a record 
declaration was recognized by the token number, the record 
initializing code was executed. Correcting this problem was 
the subject of a project undertaken by Anderson and ^yers 
[10] during a course in compiler theory at the Naval 
Postgraduate School. As a result of their work, this code 
was removed from the scanner, and placed in the production 
case statement where it belongs. The grammar was corrected, 
the parse tables regenerated, and changes to the existing 
tables were made by comparins: the listings and typing 
changes by hand. In the SYNT^S.SPC module, production 55 was 
changed from 
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<RFCOP.C TYPI> ::= RECORD <?IELD LIST> SfJD 

’ 1 0 

<RECCRI TYPE> ::= <RSCCRD> <FIELE LIST> ENI 
and production 56 was added to read 
<PFC0PD> RECORD. 

A. record is now reco,?nized when the token RECORD is parsed, 
and the initialization of variables takes place correctly. 
A.11 the rerraininj? productions were renu.Tber‘=‘d to properly 
reflect the parse tables. 

The user assistance program SYKB0LTA3LE provided by the 
last thesis effort failed in attempting tc print the symbol 
table for nearly every test program triad. Considerable 

I effort was expended during the current effort to debug, 

I 

modify and upgrade this program to a useful tool. Code was 
added to determine the actual location in memory of the 
symbol table during the compilation, and the symbol table is 
moved to that address for processing. The S Y^■■^0Li ABLE 
program was eventually abandoned for a number of reasons. 
First, it was attempting tc read sequentially entries in the 
symbol table which were designed to be accessed via the hash 
table. All too often, the program crashed because it was not 
able to locate the beginning of the next entry, f^ore 
frequently, though, the entry in the symbol table was 
incorrect, causing the SYf^BOLTABLE prog’^am to use incorrect 
pointers, lengths, codes, etc. The SYi'-'POLTABLF program was 
replaced by a much simpler, but much more useful profrram, 
called SYf^DuMP, which is described in the next paragraph. 
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The C?/!^ utility DUMP was modified to print tne contents 
of a file as a single column of hex '’haracter pairs, °ach 

representing a hyte. Each pair is preceded oy a four digit 
hex address, which corresponds to that byte's address in the 
symbol table, during compilation. The address of the 
beginning of the symbol table is a constant in the SYI^DU'‘'P 
program, and will have to be reset each time to reflect the 
n'=w address of the symbol table whenever the compiler is 
changed. This necessitates reassembling SYh’EUy? for each new 
version of the compiler, after determining the starting 
address of the symbol table from the previous SETBL entry 
address of the second entry. The output from the SYh'tUMP 
program can be easily and efficiently scanned by hand to 
determine the contents of each entry. Collision address and 
previous entry adress uairs, for instance, can usually be 
recognized on sight. Since the program is not 

data-dependen t , it cannot crash due to improper symbol table 
entries. K description of the changes to the C? /\ utility 
DUMP.ASI^; is provided in Appendix C. 

Examining the symbol tables from various test prcsrans 
showed that the address of the parent type of simple 

variable declaratiors was not be entered properly. In 
production 66, 

hlTENT VAR STRINC-> <ICEN'TIEIER>, 

code was added to save tne parent type. 

In the ENTR$SUriNTRY procedure in 3Y\‘TH1.SRC, tne 
procedure SU3R$CASE was being called twice for tne sare 
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limit (uoper) of the suhran&e. Code was added to modify the 
second call to examine tne lower limit and thus correctly 
determine the number of entries in the subrange. 

In most case statements throughout the compiler, there 
is no range checking done on the variable used tc index into 
a case statement. In PL/y.-3P>, if the inaex evaluates to a 
number greater than the number of case statements available, 
the result is undefined. In other cases, semicolons 
representing no-operation cases were emitted, causing the 
wrong code to be executed for a ^iven case. Code was added 
tc direct the index to the correct case. 

In a few instances, PL/y-30 address variables ( 16-bit) 
were being passed tc byte variables(6-tit ) . resulting’ in the 
eight high-order bits bein^ truncated and lost. The 
offending variable declarations wer“ corrected. 

\vhen the compiler was broken into modules, there were a 
substantial number of variables declared PUBLIC and E/[TIHN'AL 
needlessly. When a variable was used only in the module in 
which it was declared, the PUBLIC def'laration was deleted. A 
number of subroutines were declared PUBLIC in one module and 
not called, and declared external and called from only one 
other module. These subroutines were moved to the calling 
module and not declared PUBLIC or EXTERNAL. 

The displacement vector associated with each array 
dimension was being calculated incorrectly and it was stored 
in the same symbol table entry as the subrange. The array 
offset (for non-zero-origin array dimensions) was being 
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calculated incorrectly. Code was added to terrporarilv stack 
the array declarations and suhs eq uen tl y enter thep into the 

sypbol table correctly. Code was also added to calculate the 
array offset and the displacement vector for each dimension. 
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IV. REI^AI^ING PROPLEVS 



Signed identifier constant entries in the sy^rcl table 
are identified as such by the ECP.t^ value 41H, but the sign 
is not stored or applied to the value of the constant. 

Arrays were only examined for correct identification, and 
entry into the symbol table. Arrays on the ri^ht side of the 
assignment statement are not handled properly. 

Since no interpreter has been written, f^ere is still no 
way to validate the intermediate code produced. The compiler 
will compile some small test programs without orashing, but 
it frequently will crash or go into infinite loops. 

The code in the modules SYMEOL.SRC, SY\‘T.H1.SPC and 
SYNTH2.SRC cannot be trusted to behave as descrioed i’^ the 
two previous thesis efforts. Each procedure needs to be 
examined on a line-by-lire basis, with a possible eye toward 
rewriting substantial portions. In many, many cases, 
variables are Ai\'Ded or ORed with unexplained hex constants. 
The function of tnese constants should be determined and the 
hex constants should be named and documented. In many other 
instances, variables are shifted left or right erd then 
again ANDed or ORed with hex constants. The shifting can be 
avoided by defining and documenting the appropriate mes’xs. 
The global data base should be better o rganiz ed, defined and 
documented. Variables enter procedi’.res in unknown states, 
and are used or modified without rang® checking cr any sort 
of validation. Tne ranges on case statement indices need to 
be checked before use, and ®ach case should be a ro> RNDJ 
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tloc’iC, even if for a nc -operation case, so that 
added will not introduce extra and erroneous case 
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sta temen ts 

s . 



* 



CCMCLUS IONS 



i* 

\’PS-?ASCAL is Still a long way fror. ccrrplete 
inplerrpn tation. i'“'.ajor probier's erist in the perse stack 
structure, in semantic action suorcutines and in the symbol 
table construction and access. The groundwork for a viable 
PASCAL compiler has been started, but the compiler design 
needs a critical review ann analysis. 

The oueration of this compiler is still doperde'’t or the 
development of an SCB0 interpreter or translator to validate 
the pseudo operators generated. Completing the NFS-PASCAL 
compiler project will require a substantial investment of 
study and time. 
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APPtNDIX A 



Corpiler Irror i'^essa;3:es 



AT Array diriension stack overflow: Sirr.plify array 

declaration. 

Array nest overflew: Simplify declaration. 

AT Assignment type error: Type of expressiev net 

cenpatidle with assignment variable tyne. 

CP Invalid expression: The variable types within 

the exoression are not compatible. 

CV Incorrect control variable: The cortrol variable 

has not beer declared or is of type R^AL. 

EC Euplicate constant name: Constant identifiers 

must be unique. 

DE Bisk error: Recompile. 

ET Euplicate type name: Type identifiers rust be 

UP ique . 

EE Exponent si 2 e error: 

ET Invalid expression type: "he types of the variables 

used in an expression are incompatible. 

lA. Invalid array index: Array index types rust be 

scalar - INTEhER or REAL types are invalid. 

IC Invalid constant variable: Constant entry in symbol 

table is invalid . 

IE Integer size error: 

IP Improper parameter: The actual parameter type dops 

net match the formal parameter type. 

IR Invalid read variable: Only H'TEOER, REAL or STRINO 

values can be read. 

IS Invalid subrange error: Check type and lirits of 

declared subrange. 

IT Invalid type error: Array corrponent type 

specification invalid. 

IV Variant stack overflow: Reduce tne number of 

variant cases. 

LS Label syntax error: All labels must be integers. 
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KC Incorrect character: 

NE Incorrect actual parameter: Tne actual parameter 

rust be a variable and not an e'opressi . 

NP Mo production; Syntax error in source line. 

MS Invalid set element: Set elements must be scalar. 

PE Parameter error: Tnis parameter format can only be 

used in a write statement. 

PN Incorrect number of parameters: The total number 

of actual parameters fails to equal the total 
number of formal parameters. 

RN Record field stack overflow: Reduce the number of 

fields specified. 

RT V.RITSiST^’T parameter error: The parameter has to 

be of type FEAL. 

SO State stack overflow: simiplify program. 

TI Invalid type identifier: Type identifier not 

previously declared. 

TC Symbol table overflow; Reduce number of declarations. 

UL Undefinea label error; Label net declared in 

label statement . 

UO Invalid unary operator: Variable tyoe must be 

INTEGER, RE/I or subrancie of INTEGER. 

UP Undeclared urocedure: Procedure identifier not 

previously declared. 

VM Variable aeclaration stack overflow: Peauce 

the number of variables declared per line. 

VO Variable stack overflow: Reduce the length of 

variable printnames. 

WP V,'R ITE$ST'^T parameter error: The length parameter 

has to be of type integer. 
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.‘■PPSNDIX £ ~ Intermediate Code F'^COri Fro^rem 

The last thesis effort included a propram called DFCODF 
which w^ill read the interreaiate code file ana convert the 
hex pseudo codes into tne corresponding mnemonics. The 
parameters associated with certain operators, such as 
labels, branches and load immediate values are nrir.ted also. 
Integer and real numbers are converted to decim.al format. 
Strings are displayed as ASCII characters. 

To use the lECOEE program, compile a P/SCAI program' 
ommitting the iC compiler toggle: 

A>PASCAL TEST. PAS 

When a successful compilation is complete, run the FECGDE 
propram on the intermediate file: 



A>DFCODE TEST. PIN 

The contents of the intermediate file will be printed on the 
console. 
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ipFri'iriX C - Syrbol Table Tisrila;/- Procurer 

A syrbol table displaying proararri was develcned to aid 
in exarrining the syfnbol table end debugging the corrpiler. It 
is based on the C?/'^ EU'^P utility, and uses the starting 
address of the syrrjbol table in renory. 

To prepare the SY^rUt^P program, the user rust first use 
the standard CP/h utility ETyP to durn the symbol table 
file. In this dump, the user aeternines the starting address 
of the symbol table by examining the previous entry address 
of the second entry. This address will change whenever the 
compiler is altered, since the symbol table is assigned to 
the first available mem.ory address after the compiler, 
[•’odify the CP/t'’ utility EiJiYP as follows: after the label 
OPPNOY, change the argument of the LXI H from 0 to the 
starting address of the symbol table! after the label GLOcp^ 
delete the JNZ NCNUb! instruction. Rename, "•eassemble anc. 
reload the program. The SYh.DuY? program is now ready to be 
used on the . SY'^ file produced by the compiler: 

A>SY^''DU^P PP^GOAm.SYh 

SYMDUK? produces a vertical listing of the synbcl table, 
one byte per line! each byte is oreceded by its address in 
the symbol table. 
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APPENEIX D - Compiler Source Code Structure 



A. MODULARIZATION 

The PL/M version of the NPS-PASCAL compiler contained 
over 4700 lines of source code. When the compiler was 
transferred to the Intel Microprocessor Development System 
(MDS) and the ISIS-II operatinr system, it was brohen up 
into manageable modules according to function. Each module 
now has fewer than 1000 lines of code, so editing- is 
facilitated, and corrections to the compiler can be 
implemented much more rapidly. The two largest modules take 
less than 15 minutes each to recompile. A recompiled module 
can then be linked with the remaining modules. Maintaining 
the compiler as a single, large file would have caused 
excessively long edit sessions, and a recom.pile time of over 
an hour. 

There are seven modules, each in a separate I5IS-II 
format file. SYSRTS.SRC contains the Interface to the C?/M 
operating system, including the disk and console 
input-output procedures, and the DFTCHA? procedure. SCAN. SRC 
contains the input scanner. PARSER. SRC contains the parser 
and its supporting procedures, and most of th= global 
variables. TAELSS.SPC contains the built-in symbol table and 
the parse tables. SYMBOL. SRC consists of procedures which 
manipulate the symbol table, either writing into or reading 
from individual entries. 3YHTH1.SRC co'itains the code 
synthesizer, procedures which use the parse stacks a >^d which 
generate the i nterm.edi a te code. SYNTH?. 3PC corsists solf^ly 
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cf the production cese statement. Source listings of the 
modules are provided following the appendices. 

h'cdularizing the compiler introduced the 
compiler directives PUBLIC and SXTEPflAL. » ny veriahle, 
function or procedure which is declared in one module, and 
referenced in another, must be declared PUBLIC in the first, 
and EXTERNAL in the second. Euncticns and procedures which 
have arguments must have those arguments in both 

declarations, also. 

The X?EE switch of the compiler causes a 

cross-reference to be appended to the source listing. The 
cross-reference contains each source pregram identifier 
(literal, constant, variable, function or procedure) which 
occurs in the program, along with the line number of its 
defining occurrence, the line numbers of any references to 
it, and whether it is declared PUBLIC or EXTEF.NAL. This 
cross reference is a very useful tool for locating 
identifiers . 

The IXREF switch of the PL/M-80 compiler causes a 
temporary file with an .1X1 extension to be created, which 
contains information about each PUBLIC and EXTERNAL 
declaration in the source program. These .1X1 files, one for 
each source module, are later collected and consolidated by 
the IXPEE program, which produces an inter-module cross 
reference listing. This listing contains all PUBLIC and 
EXTERNAL identifiers, and names the module in which tne 
identifier was declared PUBLIC, and lists all modules which 
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Take an IXTFBNA.L reference to it. This list is also very 
useful during debugging. 



B. LINKING AND LOCATING 



The compiler, 


now separat 


ed into 


mod ules , 


must 


recombined to form 


a body 


of 


executable code . 


This 


accomplished by 


the LINK 


and 


LOCATE 


prograrTiS • 


The 



program adds code from eacn of the modules and libraries 
referenced linearly, to form a single file. The LOCATE 
program locates the code at a particular address in memory 
and adjusts all of the relocatable addresses into absolute 
addresses . 



C. TBAN’SFFr. FBOth ISI3-II TO C?/f^ 

Once the comiplete compiler has been located and 
adjusted, it needs to be trar.sfered from the ISI3-II based 
system where the PL/i^-SO com.piler resiaes to a CP/^ based 
system for execution. This is done with FROt'ISIS . COM . an 
undocumented program which runs under C?/M and reads a file 
from an ISIS-II format disk ontc a CP/M format disk. The 
compiler is then processed by the undocumented prorram 
OBJCPM.COM, which strips off any symbol table information, 
adds a JM!^ instruction to the entry point to the beginning 
of the compiler, and creates the executable form of tne 
compiler. The symbol table information is placed in separate 
files with .SYM and .LIN extensions. These files can be 
deleted if emipty or not used, or they can be saved for use 
with the debugging tool SID. 
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D. EXSCUTIOM A.NI lEEUGGI^a 

Vher. invoking NPS-PASCAL or. a ?:^SCAL prograr., tne 
compiler is treatsd as ary other prograrr under CP/^. Along 
with the file nare of the PASCAL program to oe compiled, 
NPS-PASCAL accepts up to four switches which cause it to 
print to the console the PASCAL source code, the production 
numbers , the token numbers, and cause it to suppress 
creation of the intermediate file. 

The facilities of SID, the CP/i-' Symbolic Instruction 
Debugger , permit run-time debugging and ex'=“cuticn tracing- of 
the compiler. To use SID, it is neci=ssar:/ to include tne 
PL/i"^-PC' compiler D2IUG switch when compiling the module of 
interest. The DZEuG switch causes the FLi^-cZ compiler to 
include identifier and line-number locations with the file. 
This information is later stripped out by the 05 JC F^. . COf'' 
program into the PASCAL. SY[^ and PASCAL. LIN files. These 
files are loaded by SID and used to reference and identify 
absolute machine addresses by symbolic expressions. 
Effective debugeing of tne compiler requires a detailed 
knowledge of the operation of SID as documented in the SID 
Users Manual. In transferring the ''onpiler from PL/M to 
PL/M-63, it was necessary to shorten some of the identifier 
names to less than 16 characters to meet the requirements of 
SID. 

In order to ascertain the proper operation of the 
compiler, it is also necessary to have accurate knowledge of 
the PASCAL language. To ensure testing the compiler with 
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pro-^rar-s of proper P^^SCAL syntax:, rrost test rrc^Ters vere 
taisn either from the Pascal Manual and Report or the Pascal 

Validation Suite. 

The entire compilation, linltin^: and loading, transfer to 
CP/M, execution and dehugeing process is documented by 
example in Appendix E. 



APPZrvIIX S - CO^?ILP, LI\’K and LOCATE Instructicns 



This appendix provides step-by-st‘=‘p directions for 
compiling the NPL-PAPC'^L comoiler, linking and locating the 
object rodules, generating cross-reference listings, 
transfering the compiler to a CP/K based system, and 
executing and debugging the compiler. Por additional 
information about the ISIS-II system, see Refs. 11 - 13. For 
additional information about operation under tne CP/I“ 
system, see Ref. 14. 



The MPS-PASCAL source files ere compiled, linked and 
located under the ISIS-II operating system-. First, compile 
each module with the appropriate switches to the PL/^-£2 
compiler : 



-?Lr^£2 

-PLgFf 

-PL38C 

-PLt^e0 

-PL^£0 

-PL.^80 

-PLI^'cd 



?1 .-SYSRTS . SRC XRFF IXRSF DATE (29 rAH £3) 

FI ;TAPLES .SRC X^Si' IXREF TATF(29 R £0) TEKC- 

F1 :PARSER.SFC XEFF IXREF DATF(?9 ^.^.R 30) DE3U9 

Fl:SCA^J.SRC XR2F IXP.FF DATF(29 h'AR £0^ EF-UG 
F1 :SYYECL.SRC XREi IXREF rATE(2P y^R £0) lEIUC 

^1 :SYNTH1.SPC XREF IXREF DATE(29 lYAR 30) TEBUG 

FI :SYNTH2.SPC XRFF IXRFF DATt^(29 KA R £3) TF-'JG 



Pue to space limitations on a single disk, it may oe 
nec®ssary to copy the ,LST files to another disk as th®y are 
generated, or to redirect tne .LST file to the ;F0: disk 



with the P^PJT switch: 



-PLn:£ 3 :F1 tSYNTHl .S?C XREF IXREF EE5EG PRI N T (: F 1 : SYNTH 1 . IS T ) 



isext, generate the i nt er-rr.odu 1 e -'ross-ref enence : 



-IXREF TIT1S( 'NPS-PASCAL VE?. e.0') 



A printed ropy of the inter-rr;odul'=‘ cross reference is very 
useful during iebugeiug. 

A "SUPMT" file has been created to facilitate the 
LI'JKing and LOCATing process. If a different LIXTing or 
LOCATin? command string is aesired, it can, of ccurse, be 
entered by hand. To invoke the prepared file: 



-SUBMIT : FI: PASCAL 



The file : Jl : PASCAL .CSr used by the SUP'^IT command ccntains 
the following command lines: 



-rPLETi :F1 :?ASCAL .LNK , :Fl rpASCAL 

-LIMZ ;P1 :TArLZS .Q3J, : ? 1 : S fS RTS . OB J , : ~1 : S Y''' 3CL .CBJ.L 
:F1:SY'JTH1 .OEJ, : FI : 5YNTR2 . OP J , :F1 : PAHSF - . 0’'^ J , :^l:TRIi\T 
:^l:SCAN .OBJ, :70:?LK80.LIB TO : FI : ?A SC A L . L'J K h'AP 
-LOCATE :F1 :PASCAL.LNK CODE (1233) t<A? 
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Execution of these lines 
:F1 :PASCAL.LNK and :F1:PASCAL. 

Leaving the ISIS-II disk 
comniler in drive 1, insert and 
The CP/y disk must contain, 
programs FP^^KIS I S . COL , OF JCPM. COiY 



will create tne files 

containing tne MPS-PASCA.L 
boot a C?/K dish in drive 2. 
among other prograr.s, ’’he 
and SID.COr. . Transfer the 



NPS-PASCAL compiler from, the ISIS-II ui sk to the GP/h disk: 



A>7?.C^'IS IS PASCAL 



Break out the .SY'^ and .LIN files and ado the 
instruction to locations 121H, ana 122H: 



A>CBCC?r^ PASCAL 



This cor'xand will create three files from the PASCAL file: 
PASCAL. CCiY, the executable compiler, PASCAL. STY and 
PASCAL. LIN, the files cortai’^in.^ sy'-hol table information 
for the run-time aebug^er SIL.COf^. '"’hen debugfin,- with 
SID.COI^, it is useful to have printed cooies of the .SY^" and 
.C0<^ files. The file PASCAL (with no extension) can be 
deleted . 

Create a PASCAL source progran, for example TZ3T.PAS, 
with an available text editor. Invoke the NPS-PASC^l 
compiler : 

AbPiSCAL TiST.PAS 

Up to four switches m^ay be provided to the NPS -PASCAL 
compiler through the CF/M parms field irmeaiately following 
the file specification: 

A>PASCAL TEST. FAS $A^CD 



87 



The switches r,ay appear in any order anc. have the follcv/in^ 

f^ea ni HftS ; 

A - List the source programs lines. 

- List the production numbers. 

C - Suppress creation of the intermediate file, 
r - List the token numbers. 



To invoke the run-time debugger SIE.CC.k: 



A>Sir PASCAL. CC'k PASCAL. SYK 

SIC VPR3 1.4 

SYf^POLS 

NEXT PC ENL 

6700 0100 CC73 

ml- PASCAL. LIN 

m?. 

mi T^ST.PAS $A3CC 



Then set up pass points, etc. and debug as necessary, ^qt 
detailed instructions in the use of Sir .COk. , the run-time 
debugger, see Ref. 15. 
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AFP2NIIX F - Eislc Lirectories 

The NPS-PASCAL cor’Diler is stored on tv;o ISI3-II forf'at 
disks with directories as follows. 



The source files, the coTniled object fil^^s, end the 
.1X1 files are on the first disk: 



DIP.FCTOOY OF :71:BFBUG 



NAriZ .FXT 


BLXS 


LENGTH 


COPY 


6£ 


904? 


TIP 


•iC 


5733 


TRINT .CPJ 


2 


70 


SC\N .SRC 


82 


10242 


SYSRTS .1X1 


6 


549 


S YSRTS .OBJ 


43 


5304 


SYhRCL.SRC 


241 


30270 


SCAN .O^J 


31 


3833 


SYNTH2.SRC 


402 


502^7 


PARSIR .OBJ 


5e 


6568 


CONVRT.S^C 


37 


4577 


SYNTRl .SRC 


445 


55506 


SY.MTFl .OBJ 


164 


20570 


SYNTF2.0PJ 


135 


16816 


TAPE'S .OBJ 


25 


4347 


PiSCA L.CSD 




227 


PARSF’. .1X1 


15 


1742 


S YSRTS .SRC 


69 


11123 


SYNTPl . IXI 


17 


19S0 


PASCAL. LNK 


482 


60356 


PASCAL 


282 


47652 


SYNTH?. IX I 


16 


1S57 


SYN'‘^OL.OBJ 


S7 


12844 


PARSER. SRC 


112 


13596 


TABL2S .SRC 


75 


5804 


SCAN .1X1 


•i 


261 


TABLES .1X1 




136 


SYMBOL . IXI 


11 


1264 
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The second disk consists solely of listing files, cue to 
their large size: 



IIRECTOnY n? -.IlrLISTIiJ 



,'UihE .rxT 


3LKS 


LENGTH 


SYSRTS .LST 


2^0 


30771 


SCAN .LST 


197 


24663 


TAPLIS .1ST 


126 


15794 


PARSPB .LST 


306 


36402 


SYNTEl .1ST 


1623 


126726 


SYNTH?. LST 


911 


114569 


SYM'ROL.LST 


543 


66277 


IgCR .LST 


99 


12366 


CONVBT.LST 


66 


3364 



The ISIS-II system disic used during the development of 
the I'JPS-PASCIL compiler contains the following: 



EIHECTOPY ' 


OF :T3 


: ISIS 




NAgE .EXT 


ELKS 


LE^'GTH 


AT 


TEP 


136 


16951 


W 


TRINT .0?J 


2 


73 


Vt 


COPY 


65 


6042 


w 


ASXS^F 


35 


4239 


A' 


ATTHIP 


36 


4662 


W 


PINOEJ 


26 


3599 


w 


DELETE 


37 


4506 


w 


r IP 


46 


5733 


\( 


El IT 


56 


6999 


W 


^OPrAT 


49 


60:s3 


w 


KEXO^J 


35 


4261 


A 


irisK 


50 


62o9 


V 


LI3 


82 


10227 


W 


LINK 


114 


14296 




LOCATE 


106 


13505 


w 


03JEEX 


27 


3254 


V 


RENAhE 


21 


2467 


\\ 


SUE^IT 


36 


4629 


V 


PLMB0 


172 


21605 


w 


TYPE 


5 


498 


Vj 


IXREF 


82 


10216 


w 


PLf^SO .LI3 


45 


5615 


w 


PLI^60 .OV0 


150 


16731 


Iv 


PLMfe .CVl 


232 


29122 


[I 


PLM80 .072 


66 


8156 


w 


PLf^60 .0V3 


169 


23706 


V. 


PLM60 .074 


72 


6932 


W 


SYSTEM .LI3 


24 


2546 


w 


LINK .07L 


2y 


3491 
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SYSRTS .3PC 



$PA'’-SWIDTH(90 ) TITLn 'SYSRTS - SYSTEM SUPPORT PCUTIiJPS') 
SYS$ROUTINES :EO; 



CPM INTERFACE ROUTINES -V 

DECLARE LIT LITERALLY 'LITERALLY', 
EXT LIT 'EXTERNAL', 

CR LIT '13', 

LE LIT '0AH', 

DCL LIT 'DECLARE', 

PROC LIT 'PPOCEDURE', 

TRUE LIT '1', 

ADDR LIT 'ADDRESS', 

EALSE LIT 'e', 

EILEEOF LIT 'l', 

FOREVER lit 'WHILE TRUE'; 



DCL 

EOLCHAR lit '0DH', /- END OF SOURCE LINS CEAPACTEP 

*/ 

T^E LIT '09E', 

SOUPCERECSIZE LIT '123', /- SIZE 07 SOURCE FILE 
RECORD “iV 

INTRECSIZS lit '128', /- INTERMEDIATE FILE RECORD 

SIZE '-V 

COMRUFFSIZE LIT '62', /- SIZE OF CONSOLE EU^FSP */ 
EOFFILLER LIT 'lAH'; /- CH«R FOR LAST RECORD ON FILE 




ju V- i'c i'c 

^ X|% 



» V* 

^ 'I' "I' *t' 'i' 5JJ 



GLOBAL VARIABLES ---/ 



%'» •«*» V' V' 'V »i'> *>< ■»*^ ■»'* “V ■•*» »■ 

#,■» •(» rf|'» »4» #,* <jS >!■» #,» « 



DCL 



/ 

/ 



/- COMPILER TOGGLES -/ 

LIST$S0URCE BYTE EXT, 
NOINTFILE BYTE EXT, 

/- EXT VARIABLES ’V 



PRODUCTION BYTE EXT, 

TOKEN BYTE EXT, 

ACCUM(32) BYTE EXT, 

NEXTCHAR BYTE EXT, 

LAST$SBTBL$ID ADDR EXT, 

/* COUNTERS -V 

EOFC LITERALLY '25',/- EOF -V 
FARMS ADDR PUBLIC I N IT I AL ( 6DE ) , 
EPRORCOUNT ADDR PUBLIC INITIAL('^), 
CODESIZE ALEP PUBLIC INITIALO), 
DECI(4) ADDR I N IT I AL ( 1 000 , 100 , 1 0 , 1 ) ; 
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* SYSTEM DEPENDENT ROUTINES AND VARIABLES - 



* THE EOLLOWING ROUTINES ARE USED BY THE COMPILER - 

* TO ACCESS DISK FILES AND THE CONSOLE. THESE - 

* ROUTINES ASSUME TEE USE OF THE C?/^ OPERATING - 
- SYSTEM. 

'I' 



THE ECE'S ARE USED BY TEE SYSTEM TO MAINTAIN - 
INFORMATION ON OPEN FILES. THEY ARE ONLY USED BY - 

- PROCEDURES IN THIS SECTION. THE ^UIEERS AND POINTERS 

- TO THE BUFFERS ARE USED BY THE REMAINDER OF THE - 

* PROGRAM, BUT THEIR SIZE MAYBE VARIED TO SUIT THE DISK 
OPERATING SYSTEM BEING USED. - 



V' V' s!f it 't *’5 l?C it 2 ’" it it i!^ i'^’ it it '*' 

^ ^ *T* 'T*'*' *r* 'I* 'r* 'T* *r» 'r -i' "T* 'r ^'r "r '1- 'r* '1' 'i* '1' 'i* 



DCL 

/* NOTE; CP/M PROVIDES 5CH AS ECB AREA AND S0E AS A 
BUFFER FOR 

PROGRAM USE */ 

RFCBADDR ADDR I N IT IAL( 5C E) , 

RFCB BASED RFCBADDR (33) BYTE, /- SOURCE ?CB 
VFCB(33) BYTE /* INTERMEDIATE FILS FCB -/ 

INITIAL (0,' ', 'PIN ' ,0,0,0,0 ) , 
SFCB(33) BYTE /* SYMBOL TABLE FILE ECB */ 

INITIAL (0,' ', 'SYM',e, 0,0,0) , 

SBLOC ADDR INITIAL(80H) , 

SOURCEBUFE BASED SBLOC (SOURCEREC3IZE ) BYTE, /- 
SOURCE BUFFER */ 

SOURCEPTR BYTE INITIAL ( SOURCER.ECS IZE ) , /- BUFFER 

INDEX -V 

DISKOUTEUEF( INTRECSIZE) BYTE, 

SYMOUTBUEEdNTRECSIZE) BYTE, 

BUEFPTR BYTE I N ITIAL( 255 ) , /- BUFEER. INDEX */ 
SYMBUFFPTR BYTE IN ITI AL (255 ) , /=!' SETEL BUFFER INDEX 

#/ 

LINE3UFF( CONBUFFSIZF) BYTE, /^CONSOLE OUT BUFFER 
LINERTR BYTE INITIAL(G), /- BUFFER INLEX */ 

BDOS ADDR PUBLIC INITIAL(5H), /-JMP TO 0/S FNTRY-V 
BOOT ADDR INITIAL(0H), /-REBOOT ENTRY*/ 

LINENO ADDR, /* CURRENT LINE NUMBER */ 

STARTBDOS ADDR PUBLIC IN ITIAL ( 6H ) ; /*P'^R TO START OF 

BDOS*/ 



/ Vf V? v* y» y# y# y# %•# y^ y# y# y# %*• y» y# y» y» y^ y.» 

'I* 'i' *%•* 'I* 

/*** G L 0 B A L P ? 0 C E D U R E S ** 

/ y# y^ y^ y^ y^ y^ y ^ y ^y^ y^ y ^ y^ y^ y^ y^ y^ y^ y* y^ 

^ #,% ' 1 ' 'T* ■''t* 



«*« y« y« y^ y« y« 

# 1 ^ 



3 ^ y^ y^ y^ 

,% 




V 'I' * 1 ' 



/ 

/ 



MOVE; PROC (SOURCE, DESTIN ,L ) PUBLIC; 

/*MOVES FM SOURCE TO DESTIN FOR L BYTES */ 

DCL (SOURCE, DESTIN ) ADDR, /* L < 255 BYTES */ 
(SCRAP BASED SOURCE, DCHAR BASED DESTIN, L) BYTE; 
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- 1) O 255; 

DESTIN'=DESTIN + i; 

S0URCE=S0L'3CE + i; 

end; 

END move; 

FILL: PROC (A, CHAR, N) PUELIC; /- MOVE GEAR TO A N TIMES -V 
DCL A ADDR, (CHAP, N , BEST BASED A) BYTE; 

DO WHILE (N := N -1 ) <> 255; 

BEST = char; 

A = A + i; 

end; 

END fill; 

MONITOR ROUTINES */ 

MONl : PROC (FUNG, info) EXT; 

DCL FUNC BYTE, 

INFO addr; 

END MONi; 

^-ON2:PROC(FUNC, INFO) BYTE EXT; 

DCL FUNC BYTE, 

INFO addr; 

END M0N2; 



li)?HAR=5CHAR; 



M,0N3:PR0C PUBLIC; 

CALL boot; 

END MON 3; 

/- I/O ROUTINES ■-/ 

PPINTCHAR :PROC(B) PUBLIC; 

/*S END THE ASCII CHARACTER B TO THE CONSOLE -/ 

DCL B byte; 

CALL MONl (2,B); 

END printcear; 

PRINTtPPOC (A ) public; 

/- PRINT THE BUFFER STARTING AT ADDRESS A UNTIL 'i' -V 
DCL A addr; 

CALL M0N1(9,A); 

END PRINT; 

READ:PROC(A) PUBLIC; 

/* READ CONSOLE CHAP/S INTO BUFFER A -/ 

DCL A addr; 

CALL MONl (10, A) ; 

END head; 

C?LF;?POC public; 

/- S END CAHRIAC-E-RSTURN-LINE-fEED TO THE CONSOLE */ 
CALL PHINTCFAR( cr) ; 
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CALL ?3 INTC?A.E(LF) ; 

END celf; 



^RINTEEC: PROC(VALUF) PUBLIC; 

DCL VALUE ADDR, I BYTE, COUNT BYTE; 
DCL FLAG byte; 

T^LAG = false; 

DO I = 0 TO 3 ; 

COUNT = 30H; 

DO WHILE VALUE >= DECK I); 

VALUE = VALUE - DFCI( I ) ; 

flac-= true; 

COUNT = COUNT + i; 

end; 

IF FLAG OR (I>= 3) TEEN 
CALL PRINTCFAR(COUNT ) ; 

ELSE 

CALL PRINTCEAR( ' '); 

end; 

END PRINTDEC; 



PRIN?$?OKEM :PROC PUBLIC; 

C\LL PRINT(.( ' TOKEN = ?')); 
CALL PRINT$DEC(T0EEN) ; 

CALL PRIMT( . ( ' $') ) ; 

END print$token; 

PPlNTiPROD: PROC PUBLIC; 

CALL PRINT( . ( ' PROD = $ ' ' ) ; 
CALL PRPIT$DEC(PRODUCTION ); 
CALL P?INT( . ( ' K) ) ; 

END PRIf!T$PROr; 



PFIMT$EPROP: PROC PUBLIC; 

CALL cplf; 

CALL PRIMTDSC(ERRCRCOUNT) ; 

CALL PRINT(.(' EPROP(S) DETEC TED CR . LE , K ')) ; 
END PR I NT terror; 

ERROR :PROC (ERRCOIS) PUBLIC; 

DCL ERRCODT^ ADDS, 

I byte; 



E RRORC 0 UN T =S R RO R C CU N T + 1 ; 

CALL crle; 

CALL PR INT ( . ( K)); 

CALL ’RINT$DEC(LINSflO) ; 

CALL PR INT( . ( ' ERROR $ ' ) ) ; 

CALL ??INTCRAR(HIGH(EP.RCODE ) ); 
CALL ?RIMTCHAR(LOV;(ERRCOrE) ) ; 
CALL P? INT( . ( ' near K ) ) ; 

DO 1=1 TO accun:(0); 

CALL t^RINTCEARK-CCI'M( I ) ); 

end; 
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B. 

CA 



PPINT( . (CR,L^, ' AT "HRCR $')): 
P? INT$TOKEN ; 

PRINT$PRCr; 

TOKEN=IO?C TEPW 

do; 

CALL ?rint$erpor; 

CALL MON 3; 

END ; 

2ND error; 



DISKERF :PROC; 

CALL E^ROR('DE'); 

CALL ^0N3; 

END diskerr; 

OPSK^SRC$EILE; PROC PUBLIC ; 

CALL M0V2(. ( 'PAS ') ,RECLALDR+P,3) ; 

PECF(32) ,R^C3(1?.) = O; 

IV MONH(15,?FC5.^DDR) = 255 TREN 
E 0 * 

’call erpcr( 'ns' ) ; 

CALL M0N5; 

end; 

END open$src$?ile; 

READ^SRC$EILE:PF.OC BYTE; 

DCL DCNT byte; 

IE (DCNT:=M0N2(20 ,R?CBADDR) ) > EILEEOE THEN 

CALL diskerr; 

RETURN ECMT; 

END read?src$eile; 

SFTUP^INTSFIL:PROC PUBLIC; 

IF NOINTFILE THEM /-ONLY MAKE FILS IF TOGGLE OF?-/ 
RETURN ; 

CALL MOVF( .RFCB, .VFCB.9) ; 

CALL MONl ag, .WjiCR ) ; 

IF M0N2(22,.WFC3)=255 THEN 

CALL diskerr; 

/- SET UP SYMBOL TABLE FILE -/ 

CALL MOVE( .RFCB, .SFCB.9); 

SFCB(32)=3; 

VFCB(32) = e; 

CALL M0NK19, .SFCB) ; 

IF M0N2 (22 , .SFC^ )=255 THEN 
CALL riSKERR; 

END setup$ints?il; 
vfitaint^file-.proc public; 

IF NOINTFILE TEEN 
RETURN ; 

CALL M0Nl(2c, .DISKOUTBLIFF); 

IF M0M2 (21 , .¥FCB)O0 THEN 

CALL diskerr; 
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CALL ^'C^'l(2e,30H); /- E.E3IT L^.A A DDE -V 

END WPIT$INTiPILL; 



S^^IT; PROC (CEJCOIE) PUBLIC; 

DCL 03JC0DZ byte; 

(PUETPTR ;= BUEFPTP+1) >= INTP.ECSIZE THE.M 
/-WHITE TO DISK-/ 

do; 

CALL WRIT$INT^EILE ; 

BUFEPTH=0; 

f:jd; 

DISKOUTBUFF(EUFF?TP )=0BJC0DF; 

END E^^IT; 

GT^NFP ATFrPPOC (C3JC0DF) PUBLIC; 

DCL OBJCODF BYTE; 

CODESIZS=COrESIZE+i; 

CALL F^';IT(OBJCODF) ; 

END ceneratf; 

GEN^ADDR:PROC(A,E) ^UBLIC; 

DCL A BYTE, B ADDF.; 

CALL GENERATE (A); 

CALL GENERATE (LOW ( E) ) ; 

CALL GENERATE(HIGE(3) ) ; 

END gen^addr; 

vniT^SYM^FILE: PROC PUBLIC; 

IF NOINTFILF THEN 
RETURN ; 

CALL ^ONl (26, .SYWCUTEUFF ) ; 

IF N!0N2(21 , .SFC3)<>0 THEN 

CALL biskerr; 

CALL ^'ONl(25,e0E); /-RES^T r?"A ADD?-/ 

END WRIT^SYf^$FILE; 

GEN^SYMTEL :PROC (OEJCODE) PUBLIC ; 

DCL OEJCOLE BYTE; 

IF (SYN'PUFFPTE:=SY[^3UFFPTR + 1 )>= INTRECSIZF THEN 
/-WRITE TO DISK-/ 

do; 

CALL vrit$syn;afile; 

SYI^EUFFPTR=0; 

end; 

SY^'0UTBUFF(SYh3U^FPTR)=0BJCCDE; 

END GEN^SYN’TBL; 

MCVEiSETEL:PROC PUBLIC; 

DCL SYKPTR ADDR; 

DCL VALUE BASED SYf^iPTR BYTE; 

DO SYr<PTR=.f^EN’ORY TO ( LAST$S ETEL$ I D - 1); 

CALL GEN SY^';TBL( VALUE ) ; 

end; 

CALL GENSYMTEL(e) ; 
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CALL 

CALL 



pT\j pymtEL 
GFNSYMTBL 




CALL CSNSYi^TBL(2) ; 



CALL C-SiMSY«TEL(20FFILLER) ; 
CALL CENSYMTBL(ECF?ILLEP. ) ; 
CALL WHIT$SY^-iEILE; 



END f^OVE$SBTBL; 



CLCSE$INT^?IL: PROC PUBLIC; 

/>!‘CLOSE INT CODS FILE AND SY^' TABLE ^ILE-/ 
IF NOINTFILE THEN 

return; 

IF IY0N2 (16, .WFCE )=255 TEEN 

CALL liskerr; 

IF M0N2(16,.SFCB)=255 THEN 
CALL diskerr; 

END CL05S$INTiFIL; 



CLEARiLNiBUFFtPROC PUBLIC; 

CALL FILL(.LINEBUFF, ' " , CON^UFFS I ZE ' ; 

END CLEAR$LN $EUFF; 

LISTLINE: PROC (LENC-TF. ) ; 

DCL (LENGTH,!) BYTE; 

CALL crlf; 

call ?rint$dec(lineno) ; 

CALL PPINT$CHAR( ' ' ) ; 

DO I = 0 TO length; 

CALL PRINTCHAR(LINE3U??(I ) ) ; 

end; 

CALL crlf; 

END listline; 

/-' SCANNER INTERFACE -/ 

GETCEAR; PROC BYTE PUBLIC; 

NXT$SRC$CHAR: PPOC BYTE; 

RETURN SOURCEEUFF(SOURCEPTR) ; 

END NXT$S?C$CHAP; 

CWECFFILE: PPOC BYTE; 

DO forever; 

IF (S0URCEPTR:=S0TTRCFPTR^1 )> = 30URCSRFCSIZF TRV 

do; 

SCURCEFTR=0; 

IF REAB$SEC$?ILF=FILEEC? THEN 
RETURN true; 

end; 

IF (NFXTCHAR:=NXT$SRC$CHARX'>LF TEEN 
RETURN false; 

end; 

END checkfile; 
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IF CFFCKFILE OR (NEXTCH^R = EG7FILL7R) T-FH 
EC; /- EOF REACHED -/ 

CALL MOVE( .( 'ECP' ,E0LCH&R,LF) ,S3LCC,5): 

SOURCEPTR = 3 ; 

,M EX T C E AR X T $ S ?. C $ C EAR ; 

end; 

LIMEPURF(LINE?T^? :=LIKEP^R + l)=NEXTCHAP; /-OUTPUT LINE'V 
IF NEXTCH^R = ECLCEAR THEN 
DC; 

IIN’SNO = LINFN'O + 1 ; 

IF LISTSCURCE THEN 

CALL LISTLINF(LI;IEPTR-1 ) ; 

LINEPTR = 3; 

CALL clearlneuff; 
end; 

IF NFXTCFAR = TAR TEEN 
NEXTCHAR = ' 

RETURN NEXTCHAR; 

END c-etcear; 

END STS^ROUTINES; 
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SCAN .S?.C 



DECLARE LIT LITERALLY 'LITERALLY', 

SCAN: do; 

DCL LIT 'DECLARE', 

PPOC LIT 'PROCEDURE' , 

EXT LIT 'EXTERNAL', 

TRUE LIT '1', 

ADD? LIT 'ADDRESS', 

FALSE LIT 'O'. 

CO.'^NENT LIT '7ER', 

UMCO'^MENT LIT '7DH' , 
forever lit 'V'-ile true'; 

DCL IDENTSI7E LIT '32', /- MAX IDENTIFIER SIZE - 1 -/ 

EOLCHAP LIT '0DH', /- END 0? SOURCE LINE CHAFACTFR^V 
RASHMASK LIT '127', /- HASETARLE SIZE -1 'V 
STRINGDSLIM LIT '27E', /-CRAR USED TO DELIMIT 
STRINGS-/ 



/’i'NUMREP. TYPES 'V 

IN TECrSRiTYPE LIT 'l ' , 

UNSIGN$EXPON LIT '3', 

PEAL^TYPE LIT '2', 

S IC-NED^EXPON LIT '4': 

/- GL05AL VARI ARLES -V 

DCL LIST^TOKEN RYTE PUBLIC I NIT lAL {FALS^ ) , 

LIST$PROD EYTE PUBLIC IM IT lAL (FALSE ) , 

LIST$SOUPCE BYTE PUBLIC IN I TI AL ( FALSF ) , 

DFRUC-$LN BYTE PUBLIC IN IT lAL (^ALSS ) , 

NOIKTFILE BYTE PUBLIC I N I T lAL ( FA LSE ) , 

/- GLOBAL VARIABLES USED BY THE SCANNER -/ 

TOKEN ^YTE EXT, /- TYPE OF TOXEN JUST SCANNED -/ 

RASECODE BYTE EXT, /* HASH VALUE OF CURRENT TOKEN 

*/ 

NEXTC^AR byte PUBLIC, /'•' CUFRENT CHARACTER FROM 

GET GEAR */ 

CON'^ BYTE EXT, /- INDICATES "^ULL ACCUM — STILL MORE 

ACCUM ( I DENTS I ZS) BYTE EXT, /- HOLDS CURRENT TOKEN 

*/ 



NUMBERC LIT '54',/- NUMBER •'’V 
STRINGC LIT '55',/* STRING */ 

IDFNTC LIT '53';/* IDENTIFIER */ 

/* LOCAL VARIABLES */ 

DCL LOOKED BYTS,/*TRUE UESN GSTCHAR HAS ALREADY RETURNED A, 
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"‘TtMPCFARl BYTE, /- FOLDS PHE^HCUSLY SCANNED CEAP 
TEMPCHAP2 byte; DCL ?ARr^LIST(9) BYTE INI^IAK' ' ) 
DECLAPE V0CAB(172) BYTE INITIAL 

(2, * , < , ( t t , I , , 

^ 5LH, 'EO', 'IF', 'IN', 'OF' 

'CP.', 'TO', 'EOP', 

'AND', 'BIV', 'FND', 'FOR', >iOD ' , 'NIL', 'NOT', 'SET' 
'VAR', 'CASE', 

'ELST^', 'FILE', 'GOTO', 'THEN', 'TYPE', 'WITH', 'ARRAY 
'BEGIN', 'CONST', 

'LABEL', 'UNTIL', 'WHILE', 'DOWNTO', 'PACKED', 'RECORD 
'REPEAT' , 

'PROGRAM', 'JUNCTION', 'PROCEDURE'): 



DCL VLOC(10) BYTE 

I INITIAL (3,1 ,17,33,63,91 ,121 ,145, 152, 160) ; 



DCL VNU^^(10) BYTE I N I TI A L( C , 1 , 17 , 25 , 35 , 42 ,4£ , 53 , 56 ,57 ) 

DCL COUNTdO) BYTE IN IT I AL (0 , 15 , 7 , 9 , 6 , 5 ,3 , 0 ,0 ,0 ) ; 

/* GLOBAL PROCEDURES -/ 

DECLARE FARMS ADDR EXTERNAL, 

TYPENUM BYTE EXTERNAL; 



MOVEtPROC (SOURCE, DESTIN ,L) EXTERNAL; 
DCL (SOURCE, DESTIN) ADDR, 

L byte; 

END move; 

EPROP :PROC (ERRCODE) EXTERNAL; 

DCL ERRCODE ADD?; 

END error; 

OPEN$SRC^FILE: PROC EXTERNAL; 

END open^src^file; 



CLEAR$LNiEUFF:PROC EXTERNAL; 

END clear$ln$buff; 



:Js aj- ^ 5;; y- 5;; ^ 5;? jj; 5;: 

* SCANNER PROCEDURES - 



%V %•> 



^1 



# ^ 



GETCHAR: PROC BYTE EXTERNAL; 

END GETCHAR ; 

GETNOBLANK: PROC; 

DO WHILE ( (GETCHAR = ' ' ) OR (NEXTCHAR = ZOLCHAR'); 

end; 

END GETNOBLANK; 



INIT$SC*.NM5:R: ppcc public; 

LCL COUNT BYTE, 

I byte; 

1=0; 

CALL I^OVS(PAPU;S , . PABNLI ST , 6 ) ; 

IF PARi'^LIST(0) = '^ ' TEEN 

DO WHILE (COUNT:=PARMLIST(I:=I*l) '<>' '; 
IF (COUNT: =COUNT-'A ' )<=4 T^’EN 



CASE COUNT 








LISTSCURCE 


= true; /- 


A 


'1* 


LISTPP.OD = 


true; /=- B 




/ 


NOINTFILE 


= true; /- 


C 




LISTTOXEN 


= true; /- 


D 




DEPUGLN = 


true; /'•' E 


'•V 





end; /- OF CASE -V 

vnd; 

CALL OPFN$SRC$FILS; 

CALL CLE/RiLN^EUFF; 

CALL f"-FTNOBLAilK; 

END init^scannsr; 



/■ 



scanner 



> ^ 









“I"'''/ 



SCANNER: PP.OC PUBLIC ; 



putinaccum: prcc; 

IF NOT CONT TEEN 

do; 

ACCUN!(ACCUN'(0) := AGCUY(0; + l) = NEXTCHAR; 
:-^ASHCODE = (HASECODF+NEXTC^AR) AND FASEN.ASK 
IF ACCUf^(0) = 31 T^EN CONT = TRUE; 

END; 

END PUTINACCUUi; 



PUTAMDGET: PHOC; 

CALL PUTIN accun:; 

CALL c-etnoblany; 

END putandget; 

PUTANDCHAR: PROC; 

CALL putinaccum; 

NEXTCHAR = GETCEAR; 

END PUTANDCHAR; 

NUMERIC: PROC BYTE; 

RETURN (NEXTCHAR - '0') <= 9; 

END numeric; 



LOWERCASE: PROC BYTE; 

RETURN (NEXTCHAR >= 61H) AND (N"XTCHAR <= 7A ~ ) ; 

END lowfr$case; 
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C^CIKALPT :?EOC 3YT?; 

RPTUR^J MEXTCHAR=' . ' ; 

END dicimalpt; 

CONViTO$UPPEH :PPOC ; 

IF LOWFRCASF TEEN 

neztchaf.=nfxtcear and 5EH; 

END conv$to^upper; 

LETTER: PHOC BYTE? 

CALL conv$to$upper; 

RETURN {(NEXTCHAR - 'k') <= 25); 

ENI letter; 

ALPEANUr": PROC BYTE; 

’’eturn nukefic or letter ; 

END ALPHANU^^; 

SPOOLNUKEIC: PROC; 

DO v-^iLE numeric; 

CALL putandchar; 
end; 

END SPOOLNUMRIC; 

SETiMSXT^CALL: PRCC; 

IE (NEXTCHAR = ' ' ) OR ( NEXTCEAR=Z0LCHAR ) THEM 
CALL CtETNOBLANK; 

CONT = false; 

END set$.next^call; 

LOOKUP: PROC BYTE; 

DCL '"AXRWLNG LIT '9'; 

DCL PTR ADDP, (FIELD BASED PTR) (9) BYTE; 

DCL I byte; 

COMPARE: PROC BYTE,* 

DCL I byte; 

1 = 0 ; 

DO VEILE (FIELD (I) = ACCUM(I := I + 1)) AME I 

<= accumO); 

end; 

RETURN I > ACCUM(0); 

END compare; 

IF ACCUM(e) > MAXRWLNC- THEN 
RETURN false; 

PTR=VLOC(ACCUM(0) )+.V0CAB; 
ro I=VNUM(ACCUM(0) ) TO 
(VNUM( ACCUM(0))+COUNT(ACCUM(0) ) ); 

IE COMPAFE THEN 

do; 

TOEEN=I ; 
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P.FTURM true; 

end; 

FTH = PTH+ACCU'^(fc ) ; 
end; 

RETURN false; 

END lookup; 



C?ECK$EXP: ppoc; 

/- THIS TAKES CARE OF EXPON. FOR.f" -V 
IF NEXTCEAR = 'S ' THEN 

do; 

TYPENUr = UNSlGNiEXPON ; 

CALL putandchar; 

I? NEXTCHAP = OP NEXTCHAF = TEEN 

do; 

CALL PUTANLCEAP; 

TYPENUN! = SIGNED$EXP0N: 

end; 

CALL SPOCLNUMHIC; 

end; 

END CHECK^EXP; 

OU «J^ %I«R / / 

^1% ^1% ^1% >1% ^1% ^1% ^1% #1^ ^1% ^1% >1% ^1% #1^ ^1% ^1% ^1% ^1% ^1% ^1% ^1% ^1% ^1% ^1% ^1% / / 

SCANNER - MAIN CODE -""'V 

/ v*^ v><* %*# %'# %*> ^ / 

/ ^1% ^1% ^1% ^1% #1% ^4^ ^1% ^1% ^1% #1% ^1% >1% ^1% #1^ #1% ^1% ^|« 4^1% ^1% #1% ^|> / 



DO forever; 

ACCUM(0), HASHCODE, TOKEN = o; 

IF (NEXTCHAR = STEINGDELI^) OR CONT THEN 
do; /- FOUND STRING -V 
TOKEN = STRINGC; 

CONT = false; 

DO FC RE V ^R • 

DO while’getchar <> stringdelim; 

CALL putinaccum; 

I? CONT TEEN RETURN; 

end; 

CALL getnoplank; 

IF NEXTCHAR <> STRINGDSLIm TH"N 
RETURN ; 

CALL putsin^accuk; 
end; /=■-' OF do forever ■-/ 
end; /- OF recognizing a string -/ 

ELSE IF numeric THEN 
do; /- have digit -/ 

TOK^N = NUMRERC; 

TYPENUM = INTEGER$?YPE ; 

DO WHILE NEX"’CEAR = '0 '; /-ELI^ LEALINC ZSRCS-V 

nextceah=getchar; 

end; 

CALL SPOOLNUMP.IC; 

I? dfcimalpt teen 
do; 

TEMPCHAPl = NEXTCHAR; 

NEXTCHAR = GETCHAP; 
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rECiy.\LPT 
DC > 

LOCKSr=TRU^;/-HANrLZ .."V 

HI turn; 
fkd; 

SLSI 

do; 

TFUPCKAR2 = NEXTCHAR; 

NEXT CHAR = TEMPCHARl; 

CALL put$in$accuk; 

NEXTCHAR=TEKPCHA?2; 

TYPENU^^ = RSAL$TYPE; 

CALL SPCOLi'IUMPiC ; 

emd; 

end; 

CALL CHICS ^EXP; 

IP ACCUM(O) = 0 THEN 

HASHCOr.E,ACCU?^(ACCUN;(0) :=1 ) = '0'; 
CALL S^T$iNEXT$CALL; 

return; 

end; /- OF RECOGNIZING NUf^ERlC CONSTANT -/ 
ELSE I^ LETTER THEN 
do; /- HAVE A LETTER -/ 

DO WHILE ALPHANU'^; 

CALL putandchar; 
end; 

IF MOT LOCKUP THEN 
TOKEN = IDENTC; 

CALL SET^NEXTiCALL; 

RETURN ; 

end; /- 0? RECOGNIZING RW OR IDENT -V 
ELSE do; /- SPECIAL CHARACTER -/ 

I? NEXTCHAR = CCMMEMT THEN 

do; 

NEXTCHAR = GETCHAR; 
do while NEXTCHAR <> UN COMMENT; 
NEXTCHAR = GETCHAR; 

end; 

CALL GETiNO$ELANK; 

end; 

ELSE 

ro; 

IE NEXTCHAR = THEN 

do; 

CALL putandchar; 

IF NFXTCEAP = THEN 

CALL putandget; 

end; 

ELS"^ 

IF NEXTCHAR = THEN 

do; 

1 7 LOOKED THEN 

do; 

LOCKED =FALSE; 
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CALL ?UTiIN$/>CCU’^; 
NEXTCH^? = ' . 

EiMl; 

ELSE 

CALL PUT AMCC ear; 

IF NEXTCHAR = T-EN 

CALL PUTAM LG ET; 

ELST^ 

IF MUMFRIC THEN 

ro; 

TOTEM = MU;^3ERC; 
TYPSNUU = EEAL^TYPE 
CALL SPCGLNUHSIC ; 
CALL CEECK$EXP; 

CALL 3ET$NEXTACALL 
RETURN ; 

end; 

end; 

ELSE 

CALL futandgft; 



I^ NOT LOOKUP TEEN 
CALL ERROR('NC'); 

CALL SFT$MEXT^ CALL ; 

return; 

end: 

end; /- OF EFCOGNIZINO SPECIAL CHAR -/ 
end; /- OF DO FOREVER -/ 

END scanner; 

END scan; 
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PAPS3P. ,S=C 



$?AGSVIDTH(62) TITLZ(' PAF.3FR') 

PARSFR: EO; 

DFCLARE LIT LITERALLY 'LITERALLY', 

ECL LIT 'DECLARE', PUB LIT 'PUPLIC', FXT LIT 
'EXTERNAL', 

PRCC LIT 'PROCEDURE', 

TRUE LIT '1', 

AEE’’ LIT 'ADDRESS', 

FALSE LIT '0', 

R^REVER LIT '\^RILE TRUE', 

STATESIZE LIT 'AELRESS', 

INDFXSIZF LIT 'ADDRESS'; DCL 

IDFNTSIZE LIT '32', /- NAX lEENTIFIER SIZE - 1 
VARCSIZE LIT '100', SIZE OF VARC STACX=V 
PSTACKSIZE LIT '48', /- SIZE OF PARSE STACKS -/ 
HASFTBLSIZS LIT '126', /- SIZE OF PAS^TABLE -V 
PCDSIZE LIT 's', /- BYTES USEE ^OR BCD VALUTAS -/ 
^^AX^NFST LIT '3', /-TAX LEVEL 0^ NESTS FOR TYPES-/ 
PAX^ARRY$Dlr LIT '5'; PAX AP^Y EIPENSIONS -V 
/- PANY OF TEE FOLLOV/INC- VARIABIES CAN EE REPLACED 
BY 

PAYING USE OF THE PARALLEL PARSE STACKS -V DCL 
SIGNTYPS BYTE PUB INITIAL ^0), 

CONSTi-^YPE BYTE PUB INITIAL (c^),/- TYP^ C^ CONSTANT 

-/ 

FORP BYTE PUB INITIAL (0), 

FXPON BYTE PUB INITIAL (0), 

VECPT? BYTE PUB INITIAL (0), 

TYPENUP BYTE PUB INITIAL (0), 

CONSTiPTF BYTE PUB INITIAL (0), 

TYPF^ADDR ADDR PUB INITIAL (0), 

TYPEiLOCT ALEP PUB INITIAL (0), 

VAR$?TP BYTE PUB INITIAL (0), 

VARiPAPPiPTP ^YTE PUB INITIAL (3), 

ALOCPASICTY? BYTE PUB INITIAL (0), 
APRY$OTY(PAX$ARR^$DIP) ADD® PUB INITIAL (0). 
VAP$BASE(10) ADDR- PUP INITIAL (3), 

VAH$BASE1(10) AEER PUB INITIAL (0), 

ALLC$OTY ADDP PUB INITIAL (0), 

TvpFiOPD^NUP ®YTE PU® INITIAL (3). 

PARENTiTYPE ADER PUB INITIAL (0), 

CONST$INDX BYTE PUB INI'^IAL (0). 

LOOKUP^AED® ADDP PUB INITIAL (00, 

C0NST$VEC(4) BYTE PUB INITIAL ^0 ) , 

CONST^VALUEde) BYTE PUB INITIAL (0), 
C0NST^PNiHASF(4) BYTE PU® INITIAL (3), 

CONSTiPN^PTR BYTE PUB INITIAL (0), 

C0NST$PN$SIZF(4) BYTE PUB INITIiL (0), 

INTEGER d-IFF ADDR PUB INITIAL (3), 

SUBR$VAL(2) ADDR PUB INITIAL 
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SUER^TY?I(2^ EYTR PUB INI'I’TAL ( 2 ), 

SUBESPT^ 3YTT^ PUB INITIAL ( 2 ), 

SUBiTYP^ACL? AEDR ?UB INITIAL (3). 

SUPR^PORf" BYTE PUB INITIAL (0), 

SIGMVALU 3YTF PU3 INITIAL (0), 

A^RY^BASF AELR PUB INITIAL (3), 

APRT$PTR EYTP PUP INITIAL ^255). /-•- -1 
APRY$DIN'$PTT^ BYTE PU3 INITIAL (0), 

PTRPTR BYTE PUB INITIAL (3), 

TAGi?C(N'AX$NEST) BYTE PUB INITIAL ^0), 
VAP$CAS$TP(KAX$NEST) ADDR PUB INITIAL (0), 
VARiCASiVAL(UAX^NEST ) ADD’’ py^ INITIAL (3), 
PECiUAR$TYP(^^AX$NEST) BYTE PUB INITIAL (0). 

REC$NST BYTE PUB INITIAL (255), /- -1 */ 

RECORDiPTR BYTE PUB INITIAL (255). /- -1 -/ 
RECAALERde^ AELR PUB INIT’IAL (0), 
P’’C$PAR$ADP(YAXiNEST) ADDP PUB INITIAL (0), 
VAPlANTiPART(MAX$NEST) BYTE PUB INITIAL (3). 

FXr^OEST$ESE(^AX$NEST) ADDR PUP INITIAL (0), 

VARiOEST$3SF(MAX$NEST) ADDP PUB INITIAL (0), 

CUP$OFST(MAX^NEST ) ADDR PU^ INITIAL (3), 

NUY$ARRYiriY('^AX^ARRYiriN') BYTE PUB INITIAL ( 2 ), 
APRv^DINlFN (25) ADDP PUB INITIAL (0), 

ARYiDM^ADP$PTR BYTF PUB INITIAL (255). /- -1 -V 
CASE STATF^^ENT VARIABLES */ 

CAS^iSTS(12) BYTF PUB INITIAL (0),/- OF STYTS IN 
CURRENT CASE V 

CASE$COUNT byte PUB INITIAL (255), /- -1 - LEVEL OF 
CASE STMTS ==V 

CONSTiNUMiTYPE(4) BYTE PUB INITIAL (0); DCL 
BCDNUM(BCrSl7E) BYTE PUB INITIAL (0). 

SCOPE(10) ADDR PUB INITIAL (0), 

SCOPEiNUM BYTE PUB INITIAL (3), 

TEMP BYTE BYTE PUB INITIAL (0), 

TEMP^YTFI byte pub INITIAL (0), 

TEMPADDR ADDP PUB INITIAL (3), 

TEMPADDRl ALLR PUB INITIAL (0), 

PFODUCTION BYTE PUB INITIAL (0). 

PRV$SBTiENTPY ADDR PUB INITIAL (3); DCL 
CO'-'PILER TOGGLES -/ 

LIST^TOEEN BYTE EXT, 

COMPILING BYTE INITIAL (3), 

/- COUNTERS -/ 

LABLCOUNT ADDR PUB INITIAL (0), /- COUNTS NUMBER OF LABELS 
#/ 

ALLOCiADDP ADDR PUB INITIAL (3), /- COUNTS PRT ENTRIES -/ 
FLAGS USED DURING CODS GENERATION -/ 

CASE^STMT BYTE PUB INITIAL (3), /- IN CASE STATEMENT -/ 
WRITE$STMT BYTE PUB INITIAL (0), />!' IN WRITE STATEMENT ="/ 
READiSTMT BYTE PUB INITIAL (0), /- IN READ STATEMENT -/ 
NEVdSTMT BYTE PUB INITIAL (3), GETS NEW RECORD -/ 
DIS?OSE$STmt byte PUB INITIAL (0), /* DISPOSES OF RECCRL -/ 
ALLOCATE BYTE PUB INITIAL (0),/- PRT LOCATION ASSIGNED 
VAPPARM BYTE PUB INITIAL (3),/- FORMAL PARAM IS VARIABLE 
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TYPE 

RE«DPAprS BYTE PUB I^[ITIAL (C^),/- READING ACTUAL PA^ AK^TEP.S 

PRESENT BYTE PUP INITIAL (C),/* IDENTIFIER IS IN SYNPOL 
TABLE 'V 

NO^LOOF BYTE INITIAL ('3),/- CONTROLS CALLS TO SCANNER -/ 
SIGN^ELAC- BYTE PUP INITIAL (3),/* SET '^HEN SIGN PRECEDES ID 

GLOBAL VARIABLES USED BY TEE SCANNER */ 

TOKEN BYTE PUB INITIAL (0), TYPE OF TOKEN JUS? SCANNED 

^ASHCODE BYTE PUB INI'T’UL (0), /- HASH VALUE OE CURPENT 
TOKEN '-/ 

COM? BYTE PUB INITIAL (0), /- INDICATES FULL ACCU^— STILL 
NOPE */ 

ACCU‘^( IDEMTSIZE) BYTE PUB INITIAL (0), /=:= HOLDS CURRENT 
TOKEN -/ 

/^' GLOBAL VARIABLES USED IN SYMBOL TABLE OPERATIONS ■-/ 

BASS ALDR PUB INITIAL (0), /- BASE LOCATION OF ENTRY -/ 
HASE?ABLE(HASHT3LSIZE) ADD? PUB INITIAL (0), /- EASHTABLE 
APRAY -V 

SBTBLTOP ADDR PUB INITIAL (0), /»:' HIGHEST LOCATION OF 
SYt^AOL TABLE -/ 

SBTBL ADDR PUB INITIAL (3). /'•' CUFRENT TOP OF SYf<^CL TABLE 
=«-'/ 

APTRADER ADDR PUB INITIAL (0), /- UTILITY VARIABLE TO 
ACCESS SBTBL ■-/ 

PRINTNAUE ADDR PUB INITIAL (0), SET PRIOR TO LOOKUP 
ENTER 

SYUEAS? BYTE PUB INITIAL (3), /- HASH VALUE 
IDENTIFIER */ 

LASTiSBTBL$ID ADDR PUB INITIAL (0), /- HOLD 
LOCATION ’V 

PARA'^NUULOC AFDR PUB INITIAL (0), /- STORES 
PARA.M listing -/ 

SBTBLSCOPE ADDR PUB INITIAL (3), /- BA^S Op 
PREVIOUS BLOCK-/ BUILT INTEL ( 10 ) BYTE EXT; 

FILL: PROC (A,CEAR,N) EXT; 

DCL A ADDR, 

(CFAR,N) byte; 

END fill; 

INiTiSYMTRL: PROC; DCL SYNBASE AEDR; 

ro; 

CALL EILL( .FASHTA3LE,0,?55) ; 

SYN!5ASE = .EUlLT$INiT?L( 3) ; 

sbtbl=.neuory; 

HASFTABLE( 14)=SYN:3ASE; 

FA S HTA B LE ( 36 ) =S Y U3A S E +1 4 ; 

HASETABLE(30)=SYMBASE+25; 
haseta'ple(0)=syn:base+36; 

HAS^TABLE(69)=SYKBASE+53; 

HASETA3LE(ie)=SYN’3ASE+61 ; 



0^ AN 

PPEVICUS RASE 
POINTER TO 
LAST ENTRY IN 



HASHTABLE( 113)=SYMEASE-^7'^ ; 

FASETA3LE(ee)=SYr^3iSE+«e; 
KASHTA3LE( 116 )=STKEASE+1 20; 
EASETAELE(£7)=SYf^BASE + 142; 
HASETA3LE(109)=SYK3ASE+159; 
HASHTABLE(?e) =SY^"SASE + 173; 
EASHTAELE(74)=SYt^EASS+166; 
HASHTA3LE(97)=SYr^3ASE+201 ; 

HA S H TA E LE ( 90 ) =S Y K3 A SE +230 ; 
EASE7A3LE(12)=SYKEASE+244; 
?.ASRTA3LE(7)=SYKBASE+26P ; 
HASHTAHLE(101)=SYMEASE+276; 

EASETAPIE(93)=SYMEASE+29e; 
EASHTA3LE(4e)=SY;^;BASE+304; 
HASHTABLE(43)=SYr"iEASE+319; 
HAEETABLE( 121 )=SYi'^EASE+334; 
HAS^TABLE(96 )=SYM3ASE+347; 
EASHTA’LE(3)=SY^’BASE*36 2; 
HASFTAEL£(34)=SYf^EASE+375; 
EASHTA3LE(?9)=SYMBASS+392; 
HASHTABLE(106)=SYf^BASE"-406; 
EASETABLE(23)=SYMBASE+4ie; 
?ASETABLE(64) =SYM3ASE+‘i34; 
HASHTABLEU07 )=SYr<BA3E+449; 
EA?ETABLE(26) =SYMEASE+4e3; 

E A S ETA 3 LE ( 54 ) =S Y KB AS E +478 ; 
KAS^TABLS( 11 ) =S YKBASE+493 ; 
FASETABLE(37 )=SYKEASE+507; 
HASETABLE(40 )=SYK3ASE+523; 
”ASFTABLE(21 )=SYKEASE+536; 
EASETABL£(99)=SYKEASE+552; 
HASETABLE(e2 )=SYKBASE + 56'7; 
F?.ViS^T$ENTRY = SYKBAS^+567; 

enl; 

END initSsyktbl; 



ICL STATE STATESIZS INITIAL (0), 

VAR(PSTACKSIZ^) BYTE PUB INITIAL (0), 
HASF^PSTACKSIZE) BYTE PUB INITIAL (0), 
STATESTACK(PSTACXSIZB) STATESIZE INITIAL f0', 
PA.FKNUK(PSTACXSIZE) BYTE PUB INITIAL (0), /- 
KAINTAINS NUK3SP OF PARAKETERS 

ASSOCIATEL riTE 

SUBROUTINE -/ 

LABELSTACX(PSTACKSIZE) ADE? PUB INITIAL (0), 
TRACKS STATE^'^ENT LAPELS */ 

PARKNUKLCC(PSTACKS IZE) ALP? PUB INITIAL (0), 
KAINTAINS TEE LOCATION IN SYKEOL 

TPL WHERE PARAN'E 

INEO STORED -V 

PASE$LOC (PSTACKSIZE) ACER PUB INITIAL (0^, />- 
THE SYN'BOL TABLE ADDRESS 

C? THE PERTIMATE 
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A 

/- 

TER 

STORES 

ENTRY 



* / 

rOR'^SFISLL(FSTAC:“CSIZE) BYTE ^UE INITIAL (?), /- 
STORES THE EO?^: FIELD C? 

SC'NNEE ILENTIEIE^S -/ 
TY?E$STACK(PS?ACKSIZS)PYTE ?UF INITIAL (?),/* HCTLS 
A VARIABLE'S TYPE 

EXPRESS ^STK(PSTACKSIZE )EYTE PUB INITIAL (0), /- 
CONTAINS TEE TYPES OF THE 

EXPRESSION CCrpCNFNTS 
'V 

PRT*ADDR(PSTACESIZE) ADDR PUP INITIAL (0), /- STORES 
an IPENTIFIFR'S FRT 

LOCATION -/ 

VARC rVARCSiZE} EYTE PUE INITIAL (0), 

VAPIND^X 3YTF INITIAL (0), 

PARAMNUM BYTE PUE INITIAL (0), 

(SP ,'^P,MP?1) BYTE PUE INITIAL (0); 

/❖ vN^MONICS FOP PASCAL-S.Y KACHI'IE 
ECL ^"AXR^■0 LIT '165' /-f'AX READ COUNT-V, f^A.XLNO LI"" '?42 ' 
LOCK COUNT-/, ""AXP.NO LIT '26«' /-^AX PUSH COUNT-/, 
STARTS LIT 'l ' /-START STATE*/; 

DECLAT?F P.FADl(l) EYTE EXT, READ2(l) ADPR EXT, INLFXl(l) 

ALEP EXT, INDEX2(1) EYTE EXT, APPLYl(l) EYTE EXT. APPLY? a) 
AEEP EXT, LCCKl(l) ^YTE ^XT, LOOKPd) AEDP EXT; 

SETTJPdNTiFiL: PROC EXT; END S ETUPd ;\'T$ El L ; 

INIT$SCANNER: P^OC EXT; END IN IT $S CAN M E? ; 

INIT^SYXT’-^: P^OC EXT,* END INITSSYNT^'; 

ERROR: PROC (FRRC ODE) EXT; DECLARE ERRCODE ADDR; END i^HRO^ ; 
SCANNER: PROC EXT; END SCANNER; 

PRIMT$TCKEN: PROC EXT; END PPINT^TOKSN; 

SYNTHESIZE: PROC EXT; END SYNTHESIZE; 

PRINT :PROC (A) EXT; 

rcL A ader; 

END print; 



C RLE: PROC EXT; 

END C’^LF; 

TITLE:PPCC; 

CALL cpie; 

CALL ?RINT( . ( 'NPS-PASCAL VERS 0.0 Z-MAP-60 
CALL cple; 

END title; 

NOCONELICT: PROC (CSTATS) EYTE; 

DCL rS'T’ATE STATESIZE, (I,J,K) INDFXSIZE; 
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J= INI' JXI (CSTAT? ) ; 

K= J + IMCSX2(CSTaTS) - i; 

DO I = J TO s; 

PEADld) = TOKEN THEN ^E'^URN "’RU? ; 

END ; 

RETURN EALSE; 

END noconelict; 

RECOVER: PROC STATES I ZE; 

DCL TSP RYTE, ESTATE STATESIZEJ 

DO forever; 

TSP = sp; 

DO WHILE TSF <> 255; 

IF NOCONELICT(RSTATE:=STATEST^CK(TSP) ) then 
do; /- STATE WILL READ TOKEN -/ 

IE SP TSP THEN SP = ""SP - i; 

RETURN estate; 

end; 

TSP = TSP - i; 

end; 

CALL scanner; 
end; 

END recover; 

do; /*rlcck for iscla rations-/ 

DCL (I,J,K) INDEXSIZE, INDEX RYTE; 

INITIALIZE: PROC; 

CALL IN ITASCA NNER ; 

C\LL INIT$SYN'T3L; 

CALL init^synth; 

CALL title; 

END initialize; 

GETINl: PROC INDEXSIZE; 

RETURN INDEXldTATE) ; 

^.ND GETINl ; 

C-ETIN2: PROC INDEXSIZE; 

RETURN IN DEX2( STATE ) ; 

END GETINP; 

INCSP: PROC; 

IF fSP :- S? +1) = LENCT^(STATESTACK) THEN 
CALL 7RROP( 'SO') ; 

END INCSP; 

LOOKAHEAD: PROC; 

I^ NOLOOK THEN 

do; 

CALL scanner; 

NOLOOK = false; 

IF listto^^fn then 
CALL print^token; 

end; 

END lookahead; 

SET$VARCd: PROCd); /- SET VARC . AND INCR^N? VARIND 
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L'CL I ^yte; 

V.4 PC (VARINDFX) = I J 

IF M;aPINDEX;=VARINDSX+1 ) > LZNCT5(V/HC^ TEEM 
CML I’RPCF( 'VO') ; 

ENR SE?$VARC$i; 



$ ^ J £ C ■ / nr* ^ ^1^ ^1' "1^ -r 

«/ /’- PARSER: EXECUTION EEC I NS HERE ’'•V /* '-V 

%l^ %•« mj^ %•# ^V %•# 

<#|% #1% ^1% ^1^ ^1% ^1^ ^1% ^1^^^ #1% >|> ^1% ^1^ ^1% ^1% ^1% #1% >1 



# J / 

/ / 



CALL SETUP^INT^FIL; /- CPEATFS OUTPUT FILE FOR GENFRATFL 
COLE */ CALL initialize; CC?^P ILIM C- ,n olock=true ; 
STSTF=STARTS ; SP=255; VAPINREX ,Vip. {0 ) = 0 ; DO V/HILE 
coripiLiNc-; 

IF STA?E<="'AX?.N0 T^EN /* READ STATE -/ 

do; 

CALL INCSP; 

STATESTACKf SP)=STATE; 

I=GFTIM1 ; 

CALL lookahead; 

J=I+GSTIN2-i; 

DO I=I TO j; 

IF READl ( I ) = TOKEN THEN SAVE TOKEN =V 

ro; /- COPY Accu^ to proper position -/ 
VA?(S?)=VA? index; 

DO INDEX = 3 TO ^ CCU^O) ; 

CALL S£T^VARCiI(ACCU^^.( INDEX) ' ; 
end; 

^ASH(SP) = hasfcode; 

STATE=REAL2f I ) : 

nolcok=tpue; 

i=j; 

end; 

ELSE 

IF I=J THEN 

do; 

CALL E?.RCP( 'NP' ) ; 

IF (STATS := 'RECOVER ) = 3 T^SN 
COMPILING = false; 

end; 

end; 

END ; 

ELS^ IE STATE>MAXPN0 THEN /'■' a??LY PROIUCTION STATE ■^/ 

do; 

MP=S?-GETIN2; 

MPPl=MP+i; 

PRODUCTION = ST/TE-MAXPMO; 

CALL synthesize; 

sP=M? ; 

I=GETIM1 ; 

VAPINLEX=VAR( S?) ; 
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J=ST^T"STAC?C(SP) ; 

DO V~ILP (K:=A??LY1( I) ) <> 0 AND J <> K; 
l=l+i; 

ikd; 

IF (STAT2:= A?PLY2(I))=0 THTM 

COMPILING = false; 

FMB ; 

ELSE 

IF STATE<= MAXLf'O TEEN /- LOOKAEEAT STATE 

do; 

I=C-ETIN’l ; 

CALL lookahead; 

DO V/EILF (K:=L00K1(I) ) <> 0 AMD TOKEN <> K; 
i=i+i; 

end; 

ST4.TF=LOOK2(I ); 

end; 

ELSE 

do; /- FUSE STATE "V 
CALL incsf; 

STATESTACK(S?^= C-ETIN2; 

STATE=GFTI'ii; 

end; 

end; /- OF V’HILE COYFILIMG -/ 
end; /- OF BLOCK FOR FAP.SZR -/ 

END parser; 
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TA3LES .SRC 



T“.3Lis: ro; 

i?AGEV;Ii:TH(£^) TI TLF ( 'TaSLES - LALR^I) PARSE TA'^LSS') 

DECIARE LIT LITEPALL''^ 'LITERALLY', 

ADDE LIT 'AEBP^SS', 

DCL LIT 'DECLARE', 

PUP LIT 'PUPLIC'; 



DCL DUKE.Y (3) BYTE DATA (2,3.3); /-DUMhY EILLE? TO FORCE 
BUILTilMiTAPLE TO 1263 -/ 



DCL PUILTilMiT^L (-) BYTE PUB 
2,3,2,2.423,14,7, 'I ', 'N', 'T', 

2.0. 21H,06H,4AH ,36 ,4 , 'R ' , 'E ' , 
2,2,21 F,14H,52H,33, 4, 'C' ,'U', 

2.0. 21E,1FH,5AH,0,7, 'P', 'C' ,' 
2 ,0 ,01H,2AF.,62H,69,4, 'T' , 'E', 

2.0. 21H,3£u,3EH,16,5,'r,'K', 
0, 0,01 F,43H,1EH, 113,6, 'O', 'U' 
e,0,01H,4?5,0DF ,86,3, 'A' , 'B', 
2,2,01H,5C3,0DH,11£,3, 'S ' , 'C 
0,0, 01P ,6AH,0DE,106,3 , 'S ', 'I' 
0,0 ,01H,78H,0DH,121 ,3, 'C ' , 'O' 
0,0.31H,6cU,2D^^ .57,6 , 'A' , 

2,0 ,0'1F, 94?, 0DE, 109, 3, 'E ' , 'X' 
0,0,01?,0A5F,0DH,26,2, 'l', 'N' 
0,2,21H,2P3?,2DH,74,4, 'S' , 'C' 
0,0,0lF,0ceH,0EE,6'’,3, 'O ' , 'f' 
0,0,01H,0CEH,0D5,46.4,'e' , 'O' 

2.0. 21?,3rD?,3DH,92,3 , 'E', 'O' 
e,0,0lF,0ECH,0DE,12,5, 'T','R' 
0,0 .01F,0E1F,0DH,9,5, '? ' , 'O' , 
S6H,31H.02?,2ATT,0DF, 131,3, 'o' 
0,0,02F,1AF,0DH,93,3, 'c','F', 
0DDF,01F,02^^,28E,0DH,46,4, 'S' 
3, 3, 22^. 36^, 3D^, 43, 4, 'P' ,'p', 
0,0,02?,45H.0CE,121 ,3, 'p', 'U 
0,0,02H,54F,0CH,96,3,'G' ,'E', 

2.0. 32H.61^,2C?,33,5, 'r' ,'E', 
0,0,02E,6EE,0CE,34,7, 'R' , 'S ', 

06H, 

3.0. 22H,7DH,0CH,29,4, 'P','A', 
78H,01H,02E,8EH,0CE,106,3, 'N' 
0,0,02E,9CH,0CE,23,7, 'D' ,'I ', 
3,2,22H,2A8F,29H,64,4, 'T', 'P. ' 
0,0, 02E , 0P.8H ,09B , 1 07 , 5 , 'F ' , 'A 
0,0 ,02E,0C7E,0CH,?8 ,4, 'R','E' 

2.0. 02E,2D7F,2CE,54,6,'R' , 'E' 
0,0,02E,0E4E,0CE,11,5, 'y', 'R' 
0,0 ,02H,0F3F,0CE,37,7 , 'w' , 'p/ 
2,3.23H,01H,2CH,43,4, 'S','E', 



^ 

L , 1 



/*AT (106H)-/ DATA ( 

'E'. 'C-'. 'E', '?.', 

'A ' , 'L ' , 

'A', 'P', 
o', 'L', 'E', 'A', 

'X', 'T', 

'p ' 'tt ' 'rp ' 

JT f f 

'S ',0,13E,1,13H, 
,'?',1.13F.1,13F, 

, 'M ',2,3F,1,13? . 

' c ' '1 -717 1 1 "at: 

'C ', 'T', 'A', 'N' ,4,3F,1 ,13H. 
,'P'.5.3F.1.13E, 

,6,3H,1,13’^, 

,'R','T',7,3F,1,13H. 

, 'r ',8,5E .IE. IS , 

, 'L', 'N ',9,5H,1 ,06-^. 

. 'E',12,5^,1,36H, 

, 'U', 'N ', 'C',11 ,1F,1,3F, 

'U', 'N ','D',1?,1H,1 ,3H . 

, 'R ', 'D'.13,1H.1,2H. 
'R',14,2H.1,1H, 

,'U', 'C', 'C',15.0?FH,1 ,0F3r . 
'E'. 'D',16,2E3H,1,3E3F. 

, 'T ',17,10H,06F , 
'T',18,10H,06H, 

'S '. 'E', 'T',19,1^H,06^, 

'¥', 'R ', 'I ', 'T' , 'E' ,20 .10F. 






'O', E',21,13H.26H, 

, 'E', 'W',?2,eEFH, 
'S'.'P','O','S','E',23,0EFE, 

, 'U', 'E', 0,3, 0,3. 

'. 'L', 'S'. 'E', 0,0,1 ,0, 

, 'a','D',24,0FFE, 

,'A','D', 'L'. 'N'.25.3EEE, 

, 'I ', 'T'. 'E',26 .0FEE, 
,'I','T', 'E'.'L','N',27,0^EE, 
'E', 'E',28,2, 2eS,01F, 
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2. 


3,03H,11 


F,11H,21 




'F', 


'O' 


,'R' 


't, ' 

. f 




'P ' 

*• ♦ 


'E'. 






0. 


0 ,03H,20F,118,99 


,6, 


'V' 

^ ♦ 


'X' 


' n ' 

» 


,'F', 


'R', 


'r. 


'A ' . ' 


I '. 




0, 


0,03E,2EH,11H,62 


,11 


/I' 


, 'N 


' ' m 

f “ 


','E' 


,'R' 


,'A' 


,'c'. 


' T ' 

» 


'I', 


'V' 




); 
























rcL 


READl ( 


-) BYTE 


PUB 


DATA(0 


, 53 


, 56, 




25 , 


25 . 


25 , 


13. 


15, 


34, 


56, 


57, 58, 


58 


, 58 


, 9 


. 14 


, 9, 


58 . 


58. 


58 . 


58 , 


58, 


15, 


58, 


4, 


10, 54, 


p; £= 


5S, 


3, 


4, 


6. 10 


, 33 


. 37 


. 42, 


49. 


50, 


54, 


w W , 


58 , 


22 , 3, 


4 , 


c; 

f 


10, 


31 , 


32, 


54, 


e; c; 


58, 3 


, 4, 


10, 


54, 


55 , 


56, 


58, 3, 


5 , 


31, 


32 , 


54, 


55 , 


56, 


22 , 


58 . 


58, 


58, 


22, 


58, 


5, 


20, 29, 


'ac; 


38, 


41 


, 43 


, 47, 


51, 


54 , 


58 , 


56, 


54 . 


33, 


37, 


42, 


50, 58, 




. 58, 


58, 


20, 29. 35, 38, 41 


. 43 


, 47, 


51, 


58, 


40, 


44, 34, 


56 


. 57 


, 5 


4 t 56 , 7 ♦ 


11, 


26 


. 27. 


30, 


58, 



1 . 

3 , 

Q 



1, 


1, 


14 


. 43 


, , 


58, 


3, 


3, 


5, 


6. 


9, 


36, 3 


6, 39 


» 


0 


28 


, 9 


4.(=, 

9 


, 22, 


22, 


3, 


12 


t 


24, 


48. 


9, 9 


, 9 , 


12 


8 , 


12 


, 8 


, 1? 


, 18, 


45, 


58 


13 


» 


15, 


21, 


23. 


4, 10 


f 


0, 


0, 


0 


); 









9, 17, 3, 



1^, 15, 1. 5, 6. 



18. 



, 19, 8, 17, 14. 14. 28, 8. 9, 
, 16, 14, 15, 9, 9. 8, 12. 16. 
2, 9. 12, 14, 12, 14, 12, 3, 

2, 14 , 12, 16, 12. 19, 2, 4, 
9. 12, 14, 9, 25. 6, 9, 8. 9, 



DCL LOOKl (-) 3YTI ?U^ DATA^3, 13, 15, 3. 35, 58. 0, 16, 0, 
58, 0, 58, e, 58, e, 35, 58, 0, 9, 28. 46 , 0. 9. 28, 0. 8, 
9, 28, 0, 15, 0, 8, 9, 28, 0, 8, 9. 28, 0, 9, 28, 36, 46. 0, 

36, 0, 9. 28, 0 , 17, 0, 1, 5, 6. 18, 0. 14, 0. 0, 0, 0, 43, 

0, 44, 0, 34, 0, 43, 0, 7, 11, 26, 27 , 30, 0, 7, 11, 26. 

27, 30, 0, 7, 11, 26, ?7, 30, 0. 35, 58. 0, 9, 46, 0. 36, 0, 

1, 3, 5, 6, 0, 12, 19, 0 , 12, 19, 0, 9, 28, 36. 46, 0, 36, 
0, 9, 28, 46, 0, 17, 0, 14, 0, 14, 0, 9, 0. 9, 28, 0, 43, 0 
, 9, 28, 0, 12, 0, 9, 0, 9, 0. 12, 0, 3, 0. 45. 0, 45. 0. 

45, 58, 0, 45, 0, 45, 58, 0, 2, 4, 10 , 13, 15. 21, 23, 0, 

4, 10, 23, 0); 



DCL 


APPLYl 




BYTE 


PUB DATA( 0 . 0,0, 


0 , 


0 . 


V C 9 


0 . 


170, 


171 


174 


, 175 


f 


0 , 0 . 


0 , 


31, 74 


, 79, 0 , 0 , 


0 . 


23 


9 25 9 


0 , 


28. 


29, 


39. 


51 , 


54 


, 61, 


63, 


150, 


2 . 


95 , 3 , 15 


. 28 


4 


29, 


37, 


39, 


47 , 


48, 


51 , 


52 


, 54 


. 59 


. 60, 


61, 


62. 63, 


150, 


0 


. 0. 


0, 


24, 


0, 0 


47. 


48, 


60 


, 62, 


0, 


16, 37 


, 59, 0, 18. 


44 




46 . 


46 . 


69. 


123, 


0, 


0, 0, 


91, '2, 


2, 


0, 37, 


0, 


2 , 2 , 2 , 


14, 


2 


, 2, 


26, 


2, 


0. 5 


36, 


69. 


0, 


26, 


0 , 


63, 0, 


0'. 


29, 0. 0 


, 39 


f 


0, 0 


. 0, 


0, 


0, 0 


0, 


25, 0 


» 


0, 0, 


0, 


146, 0 


, 175, 0, 1. 


0, 


0. 


9 , 


0. 2? . 


0 , 0 


67. 


84, 


0, 


0, 1 


, 0, 


0 , 46 


. 2 


, 2, 2^?, 


120, 


1 


22, 


141 , 


2, 


71. 


V?, 


67, 


88 


. ®9. 


120 


, 121 


, 0 


. "^l, 0, 


72, 


87 


, 


, 89 


, 121, 0 


121 


. 0, 


0, 


0, 0 


, 27 


, 38, 


71, 


72, 77, 


87, 


88 


. 89 


. 100 , 


109, 


120 


. 121 


f 


122, 


141, 


2, 0, 


3, 


11. 16, 


17. 


42 


. 41 


. 49 


, 52 


, 55 


56, 


57, 


58 


. 70, 


60, 


90 , 


106 


, 107, 0, 


0. 


96 


, 160, 0 


. 0. 


18.1 


0, 


0, 65 




183, 


0. 13, 0, 


3. 


3, 0, 40, 


0 , 


2. 


135 


, 2. 


109 


. 2 


0, 


0, 42 


t 


0, 0, 


0, 


0. 28, 


0, 


28, 150, 


0 . 


0. 


0 , 


0, 1 


1 9 
J. C 9 


l’= , 
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0, 0. e, c, 0, 0. 0. 10'7, 0, 0 , 0. 0. 0); 



ECL 


PEAD2 (- ) 


APDR 


PUP INITIAL (3. 


62, 


83, 8 


5. 273, 272, 




416, 


, 417 


. 67, 


P4, 


86 . 378, 277, 3 


11 , 


367, 4 


6 , 273, 379, 


376 


?56 , 


, 312 


t 1. w 


, 418 


, 310, 296, 297 


, 290, 294 


, 295 . 10 . 29 


6 . 


16, 


297, 


66 , 


'^3, 76. 81, 325, 893 


, 294, 232 


, 62, 11 , 296 


♦ 


1S8, 


, 297 


, 441 


, C w , 


440, 442, 410, 


le. 


296, 


297, 290. 294 


9 


202 , 


, 479 


. 11 , 


188, 


441, 65, 440. 


442 . 


410, 


59, 378, 355, 




224, 


, 63, 


333, 


15, 


58, 64. 73, 74, 


470 


. 231, 


475, 46'^. 263, 


203, 


, 269 


, 263 


, 66 , 


73 , 75 , 325 , 276, 


382, 3 


68 , 575, 58, 


6 ^, 


70, 


74, 


473, 


231 , 


475, 483, 233, 


75, 


76, 68 


, 83, 65. 291 


• 


295, 


. 424 


, 425 


, 428 


, 426, 427, 410 


, 2 , 


4 


394, 201 , 69 


♦ 


335 , 


, 7, 


6 o , 


54, 8 


, 44, 52, 5, 17 


, 407, 56, 


5, 13. 17, 407, 


169, 


, 199 


, 233 


. 392 


, 453, 473. 437 


, 55 


, 49. 


53. 324, 341, 




192, 


, 9, 


193, 


453, 


193, 80, 197, 1 


98, 


187, 4 


1. 408, 340, 


51 . 


380, 


. 3S1 


, PI, 


-2 P 


445, 280, 31, 4 


84, 


43f=. 3 


59. 360, 30S, 


35 


40, 


195 , 


39, 


46£ , 


33, 45, 33, 12, 


193 


, 457, 


42. 436. 42, 


57 


?9, 


365, 


34, 


47, 37, 38, 473, 


186 


, 432, 


433, 196, ^1 


c; 

» 


421, 


. 434 


, 432 


, 433 


, 434, 191, 36, 


48, 


194, 


462. 19, 22, 


20 . 


22 , 


3, 3 


, 0 , 


3) ; 













ECL L00K2(*) AEE?. PUP INITIAL 









(0, 6 


, 6, 4 


19, 1 


4, 14. 


243 


, 244 


. 16, 


27 


285 . 


24, 


299, 


25, 351, 2 


6. 26 


, 245 


, 246. 


246 


, 246 


. 27, 


24^ 9 


247 , 


2°, 


248, 


248 , 


246, 


29, 43 


, 420 


, 249, 


240 


. 249 


, 61 


9 2fe 


f 


250 


, 250 , 


63, 


2 51, 


251, 2 


51, 2 


51, 71 


, 25 


2, 72 


. 253 


pc 

9 w ^ 


, 77, 


295 


, 313 


, 413 


, 413 


, 413. 


413, 


458 , 


335, 


313, 


87. 


68, 6 


o 

# 


91. 


254, 


92, 255, 9 


3. 256 


, 257 


qa. 

• ^ - f 


97. 


97, 


97 , 97 , 97 


f 


429 


, 93, 


98, 9 


9, 93 


, 98, 


430 , 


99, 99 


, 99 


, 99 


oo 


431 , 


103, 


109 


, 258 


, 259 


, 259 


, 139. 


593, 


365. 


116, 


116, 


116, 


116. 


435, 


471 


. 471, 


117, 


472, 


472, 


118, 


260 , 


263 , 


260, 


260 , 


120. 


261 , 


121 


, 262, 


262, 


262, 


122, 


130 , 


453, 1 


1 

-L » 


459 , 


132, 


460 , 


135 , 


326 


. 263, 


263, 


I4l , 


358, 


146, 


264, 264, 


153 . 


157, 


447, 


156, 


337 


. 159, 


'll c 


163, 


374 , 


164, 


456, 


165 , 


265, 


170 . 


266 . 


ITl, 


171 


. 267, 


174, 


263, 


175 , 


175 , 


269, 1 


77, 


177, 


177 , 


177, 


177, 


177 


, 177, 


413, 


178, 


178, 


178 , 


414); 















CT ECL 


APPLY2(- 


) ADDP PUB 


IN IT 


lAL 












(2, 3. 


236 


, 149 


, 136 


, 275, 


2 74 


, 132 


. 363 


. 133 


, 361 


, 131, 


209, 


152, 


282, 


452, 


291 , 


104. 


208, 


119, 


287, 


2 °e, 


145 , 


345, 


345 , 


345 , 


2 « 8 , 


309, 


345, 


345, 


345, 


111 . 


293. 


292, 


95. 95, 


95, 


95, 95 


1 , 95 


, 95, 


95, 


95, 95 


1 , 95 


, 95. 


95, 


05 01 


5, 95 


96 

, 


210 , 


166, 


301 , 


300, 


114, 


3 “=4 

o w 9 


331 , 


348, 


'ZP'7 

O' ^ f 


302, 


322 , 


322, 


347, 


304, 


349, 


383, 


377 , 


TO 

9 


139, 


143, 


307, 


156, 


305 , 


314, 


313, 


315, 


173, 


321, 


323. 


319, 


316, 


215, 


134, 


133, 


227, 


3.5 3, 


329, 


180, 


409, 


334, 


144, 




327, 


32°, 


C o o ^ 


232, 


123, 


TT Q 
0 0 C7 1 


333 , 


161 , 


344, 


343, 


317, 


346, 


31°. 


306, 


?11. 


179, 


"re "7 


'Z c p 

0 W f 


172, 


135, 


229, 


155 , 


154, 


36? , 


364, 


239, 


243, 


113, 


185, 


184, 



116 



Z7d, 


369, 


234, 


372, 


373, 371, 


162, 


237, 


236 , 


113, 


146, 


147, 


27P, 


455, 


399, 


367, 


467, 454, 


386, 


368, 


469, 


4^4, 


476, 


217, 


393, 


365, 


391 , 


386, 


222, 222, 


222, 


222, 


222, 


221, 


125, 


124 , 


223, 


369, 


395, 


115, 


220, 115, 


115, 


115, 


115, 


115, 


115, 


219, 


115, 


115, 


115, 


115, 


115, 219, 


406 , 


143, 


129, 


224, 


411 , 


224, 


412, 


226, 


461, 


451 , 


405, 480, 


126, 


127, 


482, 


461, 


126, 


451 , 


225, 


181 , 


213, 


214, 


212, 163, 


242, 


241, 


160, 


439, 


423, 


422, 


168, 


167, 


438, 


151 , 


231, 449, 


448 , 


402, 


384, 


403, 


138, 


137, 


396, 


235 , 


444, 


443, 


490, 253, 


182, 


465, 


464, 


226, 


226, 


142, 


401, 


190, 


176, 


207, 


206, 205, 


397, 


106, 


399, 


112, 


169, 


1 

1 wO y 


478 , 


477, 


398, 


216, 


90, 107); 















DCL 


INEEXl(-‘) AE’ER 


PUB I 


NITIAL 










(0, 


1. 4, 


5, 6, 22, 


7, 9 


, 9, 13, 14, 43, 43, 


43, 


120, 


52, 43, 43, 24, 


15 , 16, 


17, 9 


, 83, 71, 68, 120, 


73, 




25, 18, 84 


. 13, 


19, 20, 21 


, 22, 


52, 114, 25, 43, 43 


. 43 


, 23 


, 24, 24, 


24, 30 


, 30, 43, 


43, 2 


5. 30, 42, 25 . 43 , 


43, 


43, 


43, 52, 50 


, 25, 


30, 25 , 58, 59 


, 66, 67, 66, 69, 43, 


93, 


93, 


70, 84, 71 


, 72, 


73, 83, 84 


. 43, 


85, 89, 90, 67 , 91, 


92, 


93, 


93, 93, 43 


, 102, 


103, 104, 


105, 


107, 59, 109, 109, 


109, 


114 


, 115, 116 


, 117 


, 118, 119 


, 43, 


43, 122, 73, 122, 


124, 


141 


, 125, 127 


, 128, 


132, 128, 


128, 


136, 73, 93 , 73, 


24, 


137, 


138, 139, 


140, 


141, 142, 


143, 


144, 145, 146, 147, 


148, 


149 


, 150, 152 


, 154 


, 155, 73, 


156, 


157, 159, 160, 105. 


161, 


162 


, 163, 25, 


165 , 


166, 168, 


170, 


171 , 172, 174, 1'’5, 


175 , 


59, 


176, 17B, 


180, 


181, 188, 


132, 


183, 135, 187, 183, 


168, 


190 


, 192, 16 


6, 188 


, 194, 196 


. 203 


, 205, 207, 43, 209, 


59, 


211 , 


213, 1, 4 


, 7, 9 


, 11, 13, 


15 , 


IS , 22 , 25 , 29 , 31 , 


35, 


39, 


44, 46, 49 


, 51, 


56, 53, 59 


, 60, 


61 , 63 , 65 , 67 , 69 , 


75, 


SI , 


87, 90, 93, 95, 


100, 103, 


106, 


111, 113, 117, 119, 


121 , 


123 


, 125, 128 


, 130, 


133, 135 


, 137 


, 139, 141, 143, 145, 


147 , 


150 


, 152, 155 


, 163, 


332, 446, 


332, 


404, 466, 342, 342 , 


342, 


404 


, 404, 404 


, 298, 


264, 350, 


357, 


332, 404, 404, 404, 


404, 


404 


, 466, 279 


, 279 


, 279, 279 


, 279 


, 1, 1, 1, 2, 3, c, 


4, 5 


. 7, 


12, 12, 1- 


^ 1 

f f 


14, 18, 1 


8, 19 


, 19, 20, 22, 23 , 


23, 


23, 


23, 23, 32 


, 34, 


34, 51, 51 


, 52, 


52 , 53 , 55 , 56 , 56 , 


56, 


61, 


61, 61, 65 


, 72, 


72 ,73, 7 


3, 74 


, 74, 74, 74, 76. 77, 


77, 


78, 


80, 61, 62 


, 63, 


83. 83, 85 


, 65, 


86. 86. 68, 86 , 89, 


93, 


93, 


95, 95, 97 


. 98, 


98, 100, 1 


00, 101, 103, 104, 105, 


106, 


107 


, 107, 103 


, 108 


, 109, 111 


, 111 


, 112, 112, 113, 113, 


114, 


114 


, 114, 114 


. 116, 


118, 118, 


120, 


121, 121 , 123, 123, 


123, 


123 


, 125, 125 


, 126, 


129, 129, 


150, 


130, 152, 133, 135, 


136, 


136 


, 136 , 141, 141 


, 149, 149 


, 151 


, 157, 159, 160, 160, 


160, 


160 


, 160, 160 


, 160, 


163, 160, 


160 


, 161, 162, 162, 162, 


162, 


177 


, 178, 178 


, 179, 


179, 196, 


196, 


196, 196, 196, 196, 


196 


, 197, 197, 20 


0, 200 


, 200, 200 


, 200 


, 201, 201, 201, 203, 


203, 


203 


, 204, 204 


, 204, 


204 , 204 


, 204 


. 204, 204, 207, 207, 


209, 


210 


, 210, 211 


, 211, 


212, 212, 


21^, 


215, 217, 217 , 219, 


219, 


220 


, 221, 221 


, 221, 


223, 224, 


225, 


225, 226, 226, 228, 


231, 


232 


, 233, 233 


, 234 


, 237, 236 


, 239 


, 240, 240, 241, 242, 


243, 


245 


, 246, 247 


, 248) 


• 

f 
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REJECT DCL INDSX2 (-) E 

4, 1, 1, 9, 9, 9, 2, 6, 

10, 5, 5, 1, 1, 1, 1, 1 



YTE PUS PA-ACe, 3, 1, 1, 1, 1, 2, 
9, 9, 1, 1. 1, 1, 4, 1, 1, 1 ,2 

, 1, 1, 6. 1, 5. 9, 9, 9, 1, 1. 1 



12, 12, 9, 9, 5, 12, 1, 5, 9, 9, 9 , 9, 6, 12, 5, 12, 



7, 1. 1, 1, 1. 9, 9, 9, 
1, 1, 9, 9 , 9, 9, 1, 1 

1, 9, 9, 2, 10, 2, 1, 1 

1 , 1 , 1 , 1 . 1 , 1 , 1 , 1 . 

1, 1, 2, 1, 1, 2, 5, 1, 

1 , 1 , 1 , 2 , 2 , 1 , 1 , 2 , 

2, 2, 3, 3, 2 , 2, 2, 2 

2 , 1 , 1 , 1 , 2 , 2 , 2 , 2 , 

^ f ^ f ^ f ^9 *^9 ^9 

16, 26, 27, 2S, 29, 61, 
109, 109, 120, 121, 122 

3.3.3.5.0, 2,0,0 

0 , 1 , 0 , 1 , 0 , 0 , 0 , 0 , 

0 , 0 , 2 , 0 , 1 , 0 , 0 , 0 , 

2, 2, 0, 0, 2, 0, 4, 3, 

0 , 2 , 0 , 2 , 2 , 0 , 2 , 0 , 

2 . 0 , 1 , 1 , 1 , 0 , 2 , 2 

1, 3, 2, 0, 1, 0, 0, 0, 

0 , 0 , 2 , 0 , 2 , 0 , 1 , 1 , 



1, 1, 1, 1, 10, 1, 1, 9, 4, 1, 1 
, 1, 2, 2, 7, 5, 5, 5, 1, 1, 1, 1 
, 2, 1, 4, 4, 3, 3, 1, 10, 9 , 10 

1 , 1 , 1 , 1 , 1 , 2 , 2 , 1 , 1 , 10 , 1 

2. 2, 1 , 1, 2, 1, 1, 1, 7, 2, 2 
2, 2, 1, 2, 2, 7, 3, 1, 2, 9, 2, 

• 3, 4, 3, 4, 2, 4, 4, 5, 2, 3, 2 



6 , 6 , 6 . 



f 



p e; 7 P 

9 ^9 ^9 ^^9 ^- 9 '-^9 ^ 



1 , 2 , 0 , 0 , 0 , 0 , 3, 

0 , 2 , 1 , 2 , 0 , 2 , 0 , 

0, 0, 2, 0, 3, 0 , 5 



2 , 

3, 



2» 2, 2, 2, 2, 2, 3, 2, 3, 8, 4, 

63, 71 , 72, 77, 91, 92, 93, 94, 
, 141, 150, 165, 170, 171, 174, 1 

, 5, 0, 2, 0, 2, 0, 0, 2, 0, 2, 2 

0,2,0, 2. 2, 0, 0,0, 0, 0,2 

0, 5, 0, 2, 0, 0, 2, 0, 0, 2, 0, 

2. 2 , 1, 3, 0, 0, 2, 3, 2, 0, 2 

0, 1, 2, 1, 1, 1, 1, 0, 1, 4, 1, 
, 0, 2, 3, 6, 1, 0, 0, 0, 0, 1, 3 

0, 0, 0, 0, 0, 0, 0, 2, 0. 1 , 3 

1 , 0 , 0 , 0 , 0 , 2 , £, 0 , 0 , 0 , 0 , 

0, 1 , 0, 0 , 0, 0, 2, 2, 0, 0, 0 

0 , 3 , 2 , 4 , 2 , 2 , 3 , 2 , 3 , 1 , 1 , 

, 2, 0, 0, 0, 3, 0. 0. 0); 



4 , 

9 

, 1 , 

1 . 

, 1 , 
, 1 , 
, 1 , 
, 2 , 
, 1 , 
7, 



1 



, 0 , 

, 2 , 

0 , 

. 1 , 

0 . 

, 0, 

. 2 , 

0 , 

9 ^ 9 

9 



END tables; 
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SYt^^BOL .SrC 



$?AGEWIETH(S0 ) TI TLF ( 'S Yf^ECL - SYMEOL TABLE ROUTINES') 
SYi^^CLrDO; 

DECLARE LIT LITERALLY 'LITERALLY', 

DCL LIT 'DECLARE', 

POS LIT '0', 

N'EG LIT '1', PU3 LIT 'PUBLIC', EXT LIT 'EXTERNAL', 
PROC LIT 'PRCCEDURE', 

TRUE LIT '1', 

ADDP LIT 'ADDRESS', 

FALSE LIT '0', 

BUILT$IN$FUNC LIT 'ODH'J DCL 

IDENTSIZE LIT '32', /-' Vk\ IDENTIFIER SIZE ^ 1 ■- /' 
VARCSIZE LIT '100', /- SIZE OF VARC STACY-/ 
PSTACKSIZE LIT '48', /- SIZE OF PARSE STACdS -V 
HASFTBLSIZE LIT '129', /- SIZE OF FASHTA5LE -V 
HASH.^ASK LIT '127', /- HASHTAELE SIZE -1 -V 
r^AXINT LIT '32767', /- [^AX INTEGER VALUE ■'' / 

BCDSIZE LIT 'S', BYTES USED FOR BCD VALUES -/ 
f^AX$NSST LIT '3', /- MAX LEVEL OF NESTS FOR TYPES -/ 
MAX$ARRY$DIM LIT '5', /- MAX ARRY DIMENSIONS -V 
FOP.MMASX LIT '7', /- USED TO DETERMINE FORM TYPE '''I 
FORM ENTRIES -/ 

CCNS^ENTRY LIT 'l', 

TYPEiENTRY LIT '2', 

VAR$ENTRY LIT '3', 

EUNC$ENTRY LIT 'S', /- NUMBER TYPES -/ 

INTEGER$TYPE LIT 'l ' , 

SIGNED$EXPON LIT '4', 

REAL$TYPE LIT '2' , 

PARM LIT '67', 

LODI LIT '79', 

PARMV LIT '69'; 

/- MANY OF THE FOLLOWING VARIABLES CAN BE PEPLACt^L 
BY MAXING 

USE OF TEE PARALLEL PARSE STACKS -V 

DCL 

FORM BYTE EXT, 

EXPON BYTE EXT, 

VECPTR BYTE EXT, 

TYPENUM BYTE EXT, 

CONST$PTH BYTE EXT, 

STARTBDOS ADDR EXT, /-ADDR OF PTR TO TO? OF BDOS-V 
TYPEUOCT ADDR EXT, 

VAR$PTR BYTE EXT, 

VARiBASEK 10) ADDR EXT, 

ALLCiOTY ADDR EXT, 

CONST$INDX BYTE EXT, 

LOOKUPiADDR ADDR EXT, 

C0NSTiVALUE(16) BYTE EXT, 

CONST$PN $EASE(4) BYTE EXT, 

CONSTiPN$PTR BYTE EXT, 
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C0KST$PN$SIZF(4) rYTS EXT, 

CUR^OFST (r^AX$NEST ) AEDR EXT, 

/- C4.S^ STATEy;E*NT VAEU3LES -/ 

CON'ST$NUM$TYPE(-i) BYTE EXT; GLOBAL VARIABLES 

»V X** / 

T“ / 

rCL ECr.MUM(ECDSIZE) BYTE EXT, 

SC0PE(12) ADDR EXT, 

SCOPE$NUr' BYTE EXT, 

TEMPBYTE BYTE EXT, 

TEt^PADDR ALEP EXT, 

TErPALLRl ALER EXT, 

PPV$33T$ENTPY ADLR EXT; 

DCL 

/- COf^PILEP TOGGLES -/ 

/- COUNTERS -/ 

LAELCOUNT ADDR EXT, /- COUNTS NUT.PER OF LABELS 
ALLOC$ADDR ADDR EXT, /- COUNTS PRT ENTRIES -V 

/- FLAGS USED DURING CODE GENERATION 
READPARt^S EYTE EXT, /« READING ACTUAL PARAMETERS -V 
PRESENT BYTE EXT, /- IDENTIFIER IS IN SYMBOL TABLE 

SIGN$FLAG PYTS EXT, SET 'a'HEN SIGN PRECEDES ID */ 

/* GLOBAL VARIABLES USED BY TEE SCANNER -/ 
HASECODE BYTE EXT, /- EASE VALUE OF CURRENT TOKEN 

*/ 



/- GLOBAL VARIABLES USED IN SYMBOL TABLE 

OPERATIONS -V 

EASE ADDR EXT, /- EASE LOCATION OF ENTRY */ 
EASETA3LE(EASHT3LSIZS) ADDR EXT, /- HASHTA^LE ARRAY 

"/ 

SETELTOP ADD^ EXT, /- HIGHEST LOCATION OF SYMBOL 

TABLE */ 

S3T3L ADDR EXT, /- CURRENT TOP OE SYMBOL TABLE -/ 
APTRADDR. ADDR EXT, UTILITY VARIABLE TO ACCESS 

SBTBL */ 



ADDRRTR BASED APTRADDR ADDR, /- CURRENT ? lYTES 
POINTED AT */ 

(BYTEPTR EASED APTRADDR) (1) BYTE, /- CURRENT BYTE 
POINTED AT -V 

PRIN'TNAMS ADDR EXT, SET PRIOR TO LOOKUP CH ENTER 

-/ 

SYM5ASH BYTE EXT, /* HASH VALUE OF AN IDENTIFIER -/ 
LAST$SBTBL$ID ADDP EXT, /- HOLD PREVIOUS BASE 
LOCATION */ 



PARAMNUMLOC ADDR EXT, /- STORES POINTER TO PAPAM 
LISTING -/ 

SBTELSCOPE ADDR EXT, BASE OF LAST ENTRY IN 
PREVIOUS ELOCX"'/ 

SP BYTE EXT, 

MP BYTE EXT, 
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PAFMNUML0C(?STACK3IZE ) ADDP. EX1 , 

PARAYNUy BYTE EXT, 

PETADDR(PSTACKSIZE) ADDR EXT, 
EXPRESS$STK(PSTACXSIZE) PYTE EXT, 
FORM$FIELL(PSTACKSIZE) BYTE EXT, 
VAR(PSTACKSIZE) BYTE EXT, 

VARC (VARCSIZE) BYTE EXT, 

EASE(PSTACKSIZE) BYTE EXT; 

/* DECLARE EXTERNAL PROCEDURES, FOUND IN SYSRTS -/ 

GENERATE: PROC ^ OB JCODF ) EXT; 

DCL OEJCODE BYTE; 

END gfnepate; 

ERROR: PPOC (ERRCODE ) EXT; 

DCL ERRCODE ALDR; 

END error; 

MOVE: PROC (SOURCE, DESTIN,L) EXT; 

DCL ( SOURCE, DESTIN) ADLR; 

DCL l byte; 

END move; 

M0N3: PROC EXT; 

END M.ONZ; 



GENADDP: PROC (A, B) EXT; 
DCL A BYTE, 3 AIIR; 
END GEN ADDR ; 



! j;s i?, ^ s;; j,*? s|« s;c :;c 3 ;: s;: 3;< 5 ;: :;c 5 ;: 5 ;? :;c s;c ;;c s;? 

* SET$AEDRESS$PTR - THIS PROCEDURE SETS A - 

- POINTER TO A SPECIFIC LOCATION IN TEE - 
=<* SYMBOL TABLE. 

* s’,! « if. if if if if if if if if if if if if if if if * if if if if if :;t if if if if if if :',s s'.s '-is J'.s * / 

SETADDRPTR: PROC (OFFSET) PUB; 

DCL OFFSET BYTE; 

APTRADDR = BASS + OFFSET; 

END SETADDRPTR ; 

! if if if lit if if s;< ^ ;J5 if ;;; ;*e if if it if if sj: it * s;;:;: 5',; it j;t if it sjs if s;s it it j;? s',! >;5 s;? it j;5 j;: ;;; 

* SET$PAST$PPINTNAME - THIS PROCEDURE SETS - 

* APTPADDR TO A LOCATION IN A SYMBOL TABLE - 
« entry T^AT is PAST THE ENTRY'S FRIN'^NAME - 

* (WHICH IS OF VARIABLE LENGTH). * 

’o * ❖ ❖ 5^ Sr ❖ s;« * if 5;< j;« 5? >;! ^5 3;s s;s 5,’c s;s s;: s;: j;s s:< :;s sis Xs ❖ s;s ❖ Sr V 5r »r Sr Sr Sr s;= Sr Sr Sr S|: / 

SFT^PASTiPN: PROC (OFFSET) PUB) 

DCL OFFSET BYTE; 

CALL SETADDRPTR(6) ; 

CALL SE.TADDRPTP(T=YTE?TR(0) + OFFSET); 

END sst$past$pn; 

^ j;s 5 ;? j;c :|c ;;; 5 ;: 5 ;: 3 ;: 3;r 3|i 3;r 3 ;: 3;c ;;; 5;t 5 ;; 3;t 3 ;: s;c 5;c 3 ;^ 3|t :;c 3;c 3|C 3 ;^ '.'fi 3 ;: 3 ;: 3;c 3;s 

- CALC$VAPC - this PROCEDURE DETERMINES THE - 

- LOCATION OF AN IDENTIFIER PRINTNAME. 



IPl 



;;c 3 ;<* ;;5 Jjs i;: :|t 5;; 'A( s!'. iii s;.- s;: j;»:; * j;; !;s :; 3 :■,£ 5;: j;-. sjs j;; !|s 3;; 3 |; 5;; 3;', / 



CALC$VARC: PROC(A) 4, DDR PU3J 
DCL A byte; 



RETURN VAR(A) + .VARC; 

END CALC$VAPC; 

! ^*4 s!s 5|c 5jt S.'S >;? s;?2:c s;c s;: 2;? 2;< 2;: 2|: sic s;c 2|C 2|« >;c 2|C 2|C 3|C 2|t 2|C 5,‘C 2 |C 2!c 2|C S*C 2|C S;< 2|? J;: >|C 2|C :|C 2|C 2|C 2|C 2|C SjC 2;c 2|C 2|C 

- SETiLCOKUP - THIS PROCSIURE IS UTILIZED TO - 

- ^IND THE HASH VALUE OF AN IDENTIFIER. - 

3 ;; 3;< s;: s;; s:t sjt 3:s 3:5 3|s 3 ;: 3 ;; :!! Jr if. if if if if if if 3|! 3 ;? 3 ;; 3 ;; 3;t if if if si« 3 :; 3 U 3 ^ s;j 3 ;; 3'^ sjs 3;s s;t 3;s sjs 3 ;: 3;s 3 ;; 3 ;: 3,'s 3 ;: ! 

SETLOOHUP: PROC(A) PUB; 

DCL A byte: 

PRINTNAME = CALC iVARC ( A ) ; 

SYf^HASH = HASH (A); HASHCODE OF PN -/ 

END setlookup: 



! 5‘^ 2|t 2;c 2|C S|S 2|C 2|C 2|C 2|C 2;C 2|C 2|C 2|C 2|: 2|i 2;? 2|C 2|c 2|C 2|< s|: y.« 2|: 2lC 2|? 2|C 2|j 3;C ;;S 2|C 2|C 3|C 2|C 2;c 3lC SjS ;;c 2|i jjc Sjc 2;j 2,*i 2|t 2|: 2|C 2|C 2;S / 



/* ENTERSLINKS - THIS PROCEDURE ENTERS IN THE -/ 
/* NEXT FOUR BYTES OF THE SYiYBOL TABLE THE -/ 
COLLISION FIELD AND THE PREVIOUS SYMBOL ^' / 

/=!' TABLE ENTRY ADDRESS FIELD FOR THE NEXT -/ 

/- SYMBOL TABLE ENTRY. ( BOTH IN ADDRESS VAF ) ''V 



/ 3;c 3;? if if if if 3;: 3;c 3;-. 5;< 3|S if if if if if 3|C S'^ if if if if if if if 3|S 3^ 3;; 5;« 3;'. s;.- 3|J sis 3|S sit 31S 3lt si: 3|t 3|t 3^ 3|t 3lt 31: 3|t 3lt S|S 3|S / 

ENTER$LINKS: PROC PUi; 

BASE, APTRADDR, SBTBLSCOPS = SBTBLJ 
scopE(scoPE$NUM) = sbtbl; 

ADDR^TR = RASHTABLE(SYMHASH) : 

CALL SETADDRPTP(2) ; 

ADDPPTR = PRV$S?TiENTRY; 

PRV$SBT$ENTRY = SBTBL; 

EASETABLE(SYM.HASH) = BASE; 

END ENTERSLINKS ; 



/ sit sit 3-^ 3ls 3|t Sl: if if if if if if if if if if if if sit sit si: .-It si: sit -.It si: si: sit sit sit sit -.1: 3lt si: si: si: si; si; :I: si; ;I: ;lt si; si: si; si: si; 

- CEECK$PRINT$NAME - THIS PROCEDURE DOES A 
* CHARACTER TO CHARACTER COMPARISON ^ST’aEEN 



- TEE CURRENTLY RECOONIZED IDENTIFIER AND - 

- SYMBOL TABLE ENTRIFS OF THE SAME H'SH VALUE.- 

si: :l; sjt si; si: sit si; sl: sit sl; si: sic si; sl; sl; si: si; sl: si: sl; si: sic si: sl; si; s;c si: sl; si; sl: si; if sit si; si; si: sl; si; si; sl: sl; sit si; s;t sit si; si: / 



CEKiPRT$NAME: PROC (A) BYTE PUB: 

/* A IS OFFSET FROM BASF TO PRINTNAME -V 
DCL(N BASED PR I NT NAME ) ( 1 ) BYTE: 

DCL (LEN,A) byte: 

CALL SFTADDRPTR( A ) ; 

IF ( DEN := BYTFPTR(0) ) =N(0) THEN 
DO WHILE (BYTEPTR(LSN )=N (LEN ) ) ; 

IF ( LEN := LFN-1 ) =0 THEN 
RETURN true: 



end: 

RETURN false; 

END CHKiPRT$NAME; 

! 2|; 2|C 2|C 2|C 2|C 2|C 2|C 2|C :{? 2|C 2|C 2|? 3jC 2;C 2*,C 2|C 2|C 2|C 2jC 2|S 2|C 2|C 2|C 2|C 2lC 2',C 2|C 2|C 2|S 2|C 2‘,S 2|? 2|C 2|C 2*^ 2|C 2|i 2|C 2|C 2|C 2’.: 2|t 2’^ :;c 2|C 2|C 2|C / 

/- L00KUP$PRINTNAMF$IDFNTITY - THIS PROCEDURE -,/ 

/* IS PASSED THE LOCATION OF AN IDENTIFIER IN 'V 
/if the production rule, AND ITS TARGET ENTRY -/ 

/if type, if the identifier is found WITH TEE -^ / 

/^' CORRECT TYPE THE PROCEDURE RETURN TRUE, -V 
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/■•' FI.5? FALSE IS RETURNEE. -/ 

j tc , V 5.; s,: :;s ^5 5 ;: ;.c ;.s s;; j;5 :;t ;;; i;. 5 ;; ;;s :;s ;;j j;; :;t 5 ;; :;s t\: 

LOOKUP^PNm: PROC ( A , lE^Fi'^TFY) BYTE PUB ; 
rCL (A,IE$ENTRY) BYTE; 

CALL SETLOOKUP(A ) ; 

BASE = ?ASRTAELF(SYUHASH); 
rc WEILE EASE <> 0; 

CALL SETADDRPTR(4); 

IF (( BYTFPTRO) AND FOPr^'ASE ) = ID^ENTRY ) T”E'l 
IF CE;<^PRT$NAr"E(6 ) THEN 

I^ ((BASE < SCCPE(0)) OP (BAS^ >= 
SCOPE(SCOPEiNUM-l) ) 

OR ((ir$SNTRY = TYPS$ENTRY) AND (BASE 
SCOPE (SCCPE$!'IUr. ) ) ) ) 

TFEN do; 

LOOKUP $ArER=EASE; 

RETURN true; 

end; 

CALL SETAriRPTR(e) ; 

BASE = adbrptr; 

END ; 

RETURN false; 

END looku?$pn$id; 

^ j ;: ^ 5i: j;c 5;t 5;? s;? 5;c J.C ;;i 5|; 5;< : ;c 5;j :;c ^ :;c ils :;c 5.: / 

/* LI'^ITS - this procedure ENSURES THAT THE '■■ / 

/•'' SYU30L TABLE EN'^RY ABOUT TO BE ENTERED -/ 

/- WILL NOT EXCEED THE UPPER LIN' IT OF TH" / 

/- AVAILABLE SYN^BOL TABLE ADDRESSES. -/ 

/- THE PARAr^.ETER IS TEE BYTECOUNT OF TEE 'V 
/* ENTRY TO BE ENTERED. 

! * sjs i|: s;« i|s s); jj! i’fi s “ :!/: j|s j|; ;!t 5|r sjc y.s »|t s|s :•.! 5|t s;« :;s :;s s;: j;: ;;s :',i i'.c s;s / 

LIMITS: PPOC(COUNT) PUB; 

DCL COUNT byte; 

IE SBTBLTOP <= (SBTED + COUNT) THEN 

do; 

CALL ERROR( "TO' ) ; 

CALL M0N3; 

end; 

END limits; 

/ J|S * s;s « j;: « Jlc j;s * >;« « ^ * s;; j;j j): -.;c ;;s * j): j|: * if if if if ;;c j;c sjs / 

/- ENTER$PPINTNAMEiIDENTlTT - THIS PROCEDURE -/ 

/- LOADS THE SYMBOL TABLE WITH FOLLOWING: -^ / 

/- 1. COLLISION FIELD -V 

/- 2. PREVIOUS SYMBOL TABLE ENTRY ADDRESS */ 

/* 3, FORM OF ENTRY ( PRESET BYTE "FOPM” ) -V 
/- 4. THE DENOTE OF TEE PRINTNAME IN ONE BYTE-/ 

/- 5. THE PRINTNAME CHARACTERS -/ 

/- PARAMETER: PRINTNAME IS SET PRIOR TO CALL. -/ 

/ 3;: 5^ 5*s s;s 5 ;« sj: 5 ;: 3 ;: 3jc 5;c ^ 3jt 3[c 3;c 3 ;? 3j: :;5 3’^ 3 ;: 3 ;? 3|c :;c :;c 3 ;: 3 ;: 3|? 5|i 3'r. 3’^ 3|: 3',c s'.c s;; 3 ;: 3ic 5 ;: 31c 3|? 3 ;: 3 ;: 3;c / 

ENTEP$PN$IL:PROC PUB; 

DCL I byte; 

DCL (N BASEL PRI NTNAME ) ( 1 ) BYTE; 

CALL LIMITS( I :=N (0)+7) ; 

CALL ENTER$LINKS; 
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CALL S£'TADrRPTE(4) J 
BYTE?TRf0)= FORI^; 

CALL SET4DDRPTR(5) ; 

?YTEPTR(0)= SY^'FASH,• 

CALL SETADDRFTR(6) ; 

RYTEPTR(0)=N(0); 

CALL !^0VE(?RINTNAM?+1 , SRTB L+7 , N ( 3 ) ) ; 
LAST$SETEL$IL = S5TELJ 
S3T3L=SBT3L+I J 
END ENTER^PN'ilD; 

! 5l: j|t sic :;c ?;c :!i j*,: si: 5;c jIj 5 ;: 5|: :|c jI? 5|C5:c 5 ;: i\i j’.c :|t 5|: J’.t J’.t 5 ;: :;c 5;< 5;c 5*,: / 

/* EN’TEP^VAPI ARLEilL- NTITY - TEIS PROCELURS -/ 

/- CALLS ENTER$PN^ID TO LOAD TPS SY^'PCL TABLE '•/ 

/-' ENTRY CURRENTLY BEING SCANNED. IT ALSO ='V 
/^' GENERATES TEE ENTRY'S "?ORU" BY PSFFORU.ING -/ 

/* A BOOLEAN 'OR' OPERATION ON T'-^F ID^ENTRY -••/ 

/❖ SNL THE PARAMETER "a" . ’V 

y 5;: j;: 5 ;: :;j i|c j;*: ;;s 5;: ;;c i\i s;? :;c >;« ;;c ;;c ;;c ;*,{ 5;^ s;s ;;c ij: sli j;: i;; ;;c :;r j;c / 

ENTE^iVAR$ID: PROC ( A , B , I DiENTR Y ) PUB; 
rCL (A,E,ID$ENTRY) BYTE; 

IE LOOKUP ^PN $ I D(B, I D$ ENTRY) TEEN 

do; 

PRESENT = true; 
return; 
end; 

/- ELSE ENTER VAP NA^S '■-/ 

PRESENT = false; 

FORM = A OR ID$E.NT?Y; 

C.4LL EMTSR$PN$ir; 

IE IDSENTRY = VaR$ENTEY THEN 

do; 

CALL LIMITS(4); 

VAP$3ASE1 ( VAPiPTR ) = SBTBL; 

SBTBL = SBTBL + 4; 

end; 

END ENTER id; 

/ Jit ajr s;: s’.: jjs s'.: s |5 :|c 5 |: j;: 5;^ s;? s): 5 |t j;c 5;? j;c 5;; 5 ;t ;;c i|s :;c j’.c ^ 

/■•' SET$LABEL - THIS PROCEDURE ASSIGNS A LABEL "V 
/* TO THE CURRENT DECLARED LABEL AND INCREMENT-/ 

/- THE LABELCOUNT ( NEXT TO ASSIGN ). -/ 

/ « « Jj: jjj y.t « :.•« * * ;;; « ;;; ;;; ^ « ;;s ;;j * * ;{< 5>'. j;s ;;; ;;5 j;s * ;;; 5 ;-. / 

SET$LABEL: proc pub; 
addrptr=la3LCount; 
laelcount=laelcount+i ; 
end set$la3el; 

/ ;|t ;;; sjt >',i J.'ssis s|ss;: S|1 >!s Jjs Jr j;= J'r Jl« Jr Jr j’r Jr Jr Jl: Jr Jl< ’r Jr Jr Jr Jj: s!: Jr Jr Jr =;= Jr Jr Jr / 

/- ENTER$LABEL - TEIS PROCEDURE LOADS A LABEL -/ 

/- ENTRY INTO THE SYMBOL TABLE. SYMHASH AND -/ 

/-' PRINTNAME MUST BE SET PRIOR TO CALLING */ 

/ Jr Jr >!< J|: Jr Jr =r Jr Jr Jr Jr Jr JI« Jr Jr J'r J‘r Jr Jr ~A< Jr J'r Jr Jr -r Jjs Jr Jr Jr Jr »!'• Jr Jr J‘r Jr Jr J’r Jr Jr J'r J'r J!= JI^ J’r Jr Jr Jr Jr / 

FNTER^LABEL: PROC PUB; 

CALL LIMITS (2) ; 

APTRADDR = SBTBL; 

CALL S7T$LABEL; 
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SBT^L = SBTBL+2; 
EMD ENTE?$ label; 

r 



^1% ^ 



ALTER iPRT^LOCATIONS - THIS PEOCECUPE HE- - 

* ALLOCATES PPT LOCATIONS FOR ALL FUNCTIONS - 

* AND EORVARD PROCEDURES AMI THEIR ASSOCIATED 

* FORMAL PARAMETERS. - 

Vf V> ^ 

^1% 4^1% ^1% ^1% ^|« ^1% ^1% 

ALTER$PRTiLOC: PPOC PUB; 

DCL (i.p) byte; 

CALL SETi?AST$PN (7) ; 

P = 3YTEPTR(0) ; 

PARAMNUMLOC = APTRADDR; 

DO I = 1 TO p; 

CALL SET$PAST$PN(8) ; 

APTRADDR = ADDPPTR + ((I-l)-3); 

FORM MASK ) ; 



DO CASE (S 


HR( 


BY'] 


i’EPTR(0) ,3) 


AND 


ALLC$OTY 


= 


i; 


/- 


SCALAR ' 


V 


ALLC^OTY 


= 


2 ; 


/- 


INTEGER 




ALLCiOTY 


= 


e; 


/- 


REAL -V 




ALLC$CTY 


= 


1; 


/- 


CHAP -V 




ALLCiOTY 


= 


1; 


/- 


BOOLEAN 


-/ 


end: /* OF 


CA 


,SE 


❖ / 






APTRADDR = 


A? 


TRADDR 


+ 1; 





ADDRPTP = ALLOC i A DDR ; 
APTRADDR = TEMPADDRi; 
APTRADDR = APTPADDR + 6; 
APTRADDR = APTPADDR + 1 
ADDRPTR = ALLOC $ADDR; 
ALLOC$ADDR = ALLOC^ADDP 



BYTEPTR (3) ; 

allc$cty; 



TEMPADDRI = APTR»DDR ^ 4; 

end; 

END ALTER$PP.TiLOC; 

/ %*^ vt# s*«» %v V*' 

^ 1 % ^|« ^ 1 % 3 |% 3 |% # 1 % # 1 % <?|% 

* ENTSR$SUBROUTINE - THIS PROCEDURE LOADS 
- SUBROUTINE ENTRY IN THE SYMBOL TABLE. T? 

>!' PARAMETER NUMBER LOCATION IS STORED AND 
* SCOPE LEVEL IS INCRIMiENTED BY ONE. - 

>1% >1^ ^1% ^1% #1% ^1% ^1% ^1% ^p #1% ^1% ^p #1% >1% >1^ ^p >1^ ^p^|% ^p 



THE 



ENTEPiSUPPTN : PROC (A , P , ID$EN TRY ) PUB; 

DCL (A,E.ID$ENTRY) BYTE; 

CALL ENTEP$VAR^ID(0, S?, ID$ENTRY) ; 

IE NOT PRESENT THEM 

do; 

CALL LIMITS(4); 

PARAMNUMLOC = SBTBL; 

SETBL = SBTBL + 5; 

CALL SET$PAST$PN(10) ; 

ADDRPTR = ALL0C$ADDR; ALDOCiADDR = ALLCC^A 
CALL SET$PAST$PN( 14) ; 

ADDRPTR = LABLCOUNT; 

LABLCOUNT = LABLCOUNT + 2', 

SBTBL = SETBL + 6; 

IE ID$ENTRY = FUMC$ENTEY TEEN 
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do; 

SBTPL = S3TBL + IJ 

end; 



end; 

ELSE do; EORV'ARD FUNCTION -/ 

CALL SST$PASTiPN(14); 

IE ID$ENTRY = EUNC$EN7RY THEN TEvPADDRl APTRADD?. 



ELSE TEMPADDHl = APTRADDR + 2; 

CALL SET$PAST$PN(10) ; 

AEDRPTR = ALLCC$ADDR; 

ALLOC$ADDR = ALLOC$AEEH + 2; 

CALL ALTER$RRTiLOC; 

end; 

PARIAN Uf^LOCCM?) = base; 

SCOREUCCPE$NUh := SC0P3$NUf^ + l ) = SBTBL; 
END ENTER iSUBRTN; 



O# %JU o# / 

^1% ^1% #1% #1% #1^ >1% ^1^ ^1% ^1% ^1^ ^1% / 



/■^ 

/- 

/t- 

/❖ 

/’=*' 

/ 



L00KUP$0.NLY - THIS PROCEDURE IS PASSED THE =V 
POSITION OF A IDENTIFIER JUST SCANNED IN -V 
THE CURRENT PRODUCTION ( S?,^"P,NiPRl ) AND -/ 
PETUPNS TRUE IF THE IDENTIFIER IS FOUND IN -/ 
THE SY^^3^L TABLE. -'/ 



%U JU 

r^’% ^1% #1% ^1% 



%•# %^40 %l 



% ^1% 






look:up$only: p^oc(a) byte pub; 
DCL A byte; 

CALL SETLOOKUP(A) ; 



BASF=HASHTA3LE(SYN’.H ASH) ; 
DO WHILE BASE <> 3; 

IF CEK$RRT$NAN!E(6^ TEEN 



Do; 

lookup$addr=basf; 
RETURN true; 



end; 

ELSE, do; 

CALL SETADERPTR(0) ; 

base=addrptr; 

end; 

end; 



RETURN false; 

END lookup$only; 

/ »•; •** »’* -J* v*» %•# %•< «.*» <.*» %•« %•« %v %•« O* »•< o*^ %•< / 

?ji, #|*« '|» »g» 'i** 'i* '»'* '»■* / 

/❖ this procedure converts a real -/ 

/« NUMBER IN THE PROGRAM TO A BCD 
/’•*' RERRFS EN T A.T I ON . * / 

/ %•# %'<r y 

^j-% ^1% ^1% ^1% ^1% ^|-% #1% >1% #1^ ^1% #1% ^1% ^1% #>1% ^1% >1% / 

CONVRTBCD: PR0C(A,B.) PUB; /’- A=S?/MP/MPPl , 3=?CS/NFG- 
DCL (I,J,DFLAG,EFLAG,S?LAG,A,B) BYTE; 

DCL (N BASED PR I N TN AME ) ( 1 ) BYTE; 

DCL (EXPONLOO? ,EXPSIGNLOOP ) LABEL,* 

CALL SETLOOKUP(A) ; 

/- INITIALIZE VARIABLES -V 

sflag=false; eflag=thue; dflag=true; i=i; 

DO J=0 TO 7; BCENUM(J)=0; END; 






+ 
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J=0; 1XP0N=641 /* 
/■'' REMOVE LEABLNC- 
Dn WHILE ((N(I ) - 
i=i+i; 



E+00 ’■'/ 
ZEROS -V 

' 0 ') = 0 ); 



IF I=(M(0)+1) then goto exponloop; 



end; 



/* LOAD BCDNUM WITH SIGNIFICANT DIGITS 
DO WHILE ((N(I) - '0' ) <= 9 OR N(l) = 
IE N(I) = ' THEN 

do; selag=false; 

IE I = N(0) TEEM GOTO EXPOiMLOO?,* 

I = I + i; 



end; 



^ / 






ELSE 

do; 

DC WHILE J = 0 /MD DEL/G AND (n<'l) - 'e') 
EXPOM = EXPOM-1 ; 

IE I = N(3) THEN GOTO EXPONLOOP; 

I = I + 1 ; 
end; 

IE J = ( BCDSIZE-1 ) them 00-^0 EXPONLOOP; 
IE DFLAG TEEN /- FIRST BCD PAIR -/ 

do; 

BCDNUM(J)=ROL( (N(I )-'0') ,4) ; 

dflag=false; i= i+i; 

IF EFLAG TEEN EXPON=EXPCN+i; 

end; 



ELSE 

do; 

3CDNUM( J )=BCDNUM( J ) + (N (I )-'3' 

J = J + i; I = I + i; 

DFLAG = TRUE; if EFLi.G THEN EXP0H=EXP0N-^1 

end; 

IF I=(N(0)+1) THEN GOTO EXPONLOOP; 

end; 

end; 

EXPONLOOP; 

IF N(I) = 'I' THEN EFLAG = FALSE; 

IF I = (N(0)+1) THEN GOTO EXPSIGNLOOP; 

IF EFLAG THEN 

do; 

DO WHILE N(I ) <> 

EXPOM = EXPCN + i; 

I = I + i; 

end; 

I = I + i; 

end; 

DO WHILE I < (N(0)+1) AND (N(l)-'3') <= 9 ; 

I = I + i; 

end; 

IE TYPENUM = REALTTPE THEN GOTO EXPSIGNLOOP; 
/❖ N ( I ) = E */ I = i+i ; 

I^ TYPENUM = SIGNED^EXPON THEN 
do; 
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ir N(I) = 2DH THEN’ SELAG = TRUE; 

1 = 1+1 ; 
end; 

IE I = N(0)+1 THEN 

do; 

CALL ERROR('EE'); 

return; 

end; 

DELAO = o; 

DO J = I TO N ( 0 ) ; 

DELAC = (EELAG’"10) + (N ( j)-'0 ') ; 

end; 

IF SFLACr THEN /'- EXPONENT CALCULATION -/ 

EXPON = SXPON-DFLAO; 

ELSE EXPON = EXPON + DELAO; 

EXPSIGNLOOP: 

ECDNUM fECDSIZE-l)=HOL(B,T) ; SIGN OF NUMPER -/ 
IF EXPON > 127 THEN 

do; 

CALL ERROR( 'EE'); 

return; 



end; 

ELSE BCDNUy( ECLSlZE-1 )=ECDNUM(FCLSIZE-1 )+EX?0N; 

END convrtrcd; 



/- 

/* 

/- 

/* 

/ o- 

/ *»- 






> %•# % 



i 



CONVERTI - THIS PROCEDURE IS PASSED " A" , 
LOCATION OF A CONSTANT IN THE PRODUCTION 
AND "P” THE 'SIGN' OF THE INTEGER. THE -/ 
FUNCTION GENERATES A SIGNED 16 BIT REPRS- 
SFNTATION OF THE NUMBER AND RETURNS IT IN 
AN ADDRESS VARIABLE. 



THE-’' / 



/ %^ i" 

^1% #1% ^1% «»|% ^1% <*)% ^1% >1% «^|% >1^ ^1* #1% / 

CONVEPTI: PR0C(A,3) ADDRESS PUB; 

DC L (l A»^) BYT^J 

DCL (N ’based PRINTNAME) (1) BYTE; 

DCL NUM A DDR; 

CALL SETLOOKU?(A ) ; NUK=0; 

DO 1=1 TO N (0) ; 

IF (r^AXINT/10) >= NUh THEN 



do; 

IF fMAXINT/ie) = NU^ AND (N(I)-'0') > THEN 

do; 

CALL FRROP('IE'); 

RETURN Nu;<; 

end; 

NUM=(NUM''>n0) + (N(I )-'0' ) ; 

end; 



ELSE do; 

CALL ERROR ('IE'); 
RETURN NU^^; 

end; 



end; 

IF B = POS TEEN RETURN NUM; 
IF NUiY = lYAXINT THEN 
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do: 

CALL DT’ROP. ('IE'); 
RETURN NU^'i; 

end; 

RETURN ( - NUM); 



END CONVERTi; 

/ %•# %•# %V %V >•* O^ %V V 

^1% >1% #1% ^1^ ^1^ #1^ >1% #1% >1^ #1^ #1% #1^ >l« #1% ^1% #1% #1% #l4 #1% ^1% #1% ^1% #l« ^1% ^1% >1% ^1^ ^1% >1% ^l« ^1% / 

/ o'- 
/-,- 



/« 

/* 

/❖ 

/❖ 



CONVERT^CONSTAMT - THIS PROCEDURE IS CALLED 
WITH TYPENUM SET BY THE CALLER. THE NUMEER - 
f^UST BE POINTED TO BY "SP" IN THE PRODUC- '- / 
TION. T^E PROCEDURE RETURNS WITH "CONSTi -V 



K-/ 

/ 



NUr^$TYPE AND CONST$VALUS SET 
NUMBER IN ITS INTERNAL FORM. '>- / 



/ ^*# V# 

# 1 ^ # 1 ^ 1 ^ 1 % # 1 ^ #|« # 1 % # 1 % > 1 % > 1 ^ #|« #g^ # 1 ^ > 1 -^ # 1 % ^ 1 % 4 * 1 ^ 4 ^^ 

C0NVRT$C0NST: PROC(A) PUB; /- A=P0S,N 
DCL A BYTE,INT$ADDR ADDR ; 

IE TYPENUM = INTEGER$TYPE THEN 

do; 

int$addr=converti (SP,A); 
CONSTiNUM$TYPE(CONST$PTR )=INTEG 
CONST$?TR=CONSTi?TR+i; 

CALL M0VE( .INT$ADDR , .CONSTiVALU 
C0NST^INDX=C0NST^INDX+2; 

end; 

ELSE do; 

CALL C0NVRT3CD(SP,A ) ; 
CONST$NUM$TYPE(CCNST$?TR)=REAL$ 
CONSTi?TR = CONS'"$^TR+i; 

CALL MOVE( .3CDNUM, .CONST$VALUE( 
CONST$INDX=CCNSTiINDX-^BCDSIZE; 

end; 



WITH THE ''■'/ 

^0 V* ^ 

^ 1 % # 1 ^ # 1 ^ ^ 1 % # 4 % # 1 % ^ 

EG -V 



-/ 



er^type; 

E(CONST$INDX) ,?); 



TYPE ; 
COMSTsIN 



rx) .BCDSIZE 



END 

/- 

/- 

/- 

/* 

/- 

/* 

ENTP 



CONVRTiCONST; 

y 

^ ^ #1% 0^ 0^ #1% ^1% #1% ^1% #1^ ^1% #1^ ^ #1% ^1% ^4^ / 

ENTER$C0NSTANT$NUMBER - after tee next ENTHY'V 
HAS HAD ITS LINKS ENTERED INTO THE SYMBOL -/ 
TABLE, THIS PROCEDURE ENTERS TEE CONSTANT "V 



VALUE INTO THE SYMBOL 
ENTRY'S "form" TO THE 

V*^ %l# %l# ^0 %%0 ^%0 %l# ^0 %Jt0 %t# ^*0 OU « 

# 1 % # 4 ^ ^ 1 * ^ 1 % ^ 4 % # 1 ^ ^ 1 % ^ 1 % > 1 % # 1 ^ ^ 1 % ^ 1 % 0^-% 0^ 0 



TABL’^ AND SET THE ^/ 
APPROPRIATE TYPE. -/ 



^ %•.# ^ 



^ #1^ #1% #|« ^1 



$C0NSiNUM: PROC PUB; 

CONSTiPTR=CONST^FTR-l ; 

IE CONST$NUM$TYPE(CONST$PTR)= IMTEGERTYPE TEE 

do; 

CALL SETADDRPTR(4); BYTEPTR(0)=S OR CONSiEN 
CALL LIMITS(2); C0NST$ INDX^CON ST$ I N DX-2 ; 
CALL M0VE( .CONS TUVALU! (CONS T$ IN DX ^^SBTBL .2) 
SBTBL=SETBL+2; 

end; 

ELSE do; 

CALL SETADDRPTR (4) ; BYTEPTR ( 2 ) =10''? OR CONSi 
CALL LIMlTS(iCDSIZE) ; CON S T< I N DX=CCN STi I ND X 
CALL M0VE( .CONST$VALUE(CONST$INDX ) ,S3TBL ,BC 

setbl=sbtbl+bcdsize; 

end; 



: 5;o;; / 

N 

try; 



entry; 

-BCDSIZ 

dsize); 
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EfiB entr$ccms^num; 

y s|t j;: if. ;J: :;c5;t if 5|s :|J if :|c ;;c s;: if if if if 5|s if 5|J sf >f :f s;c ijs ;|s if s|; ;|: s|: if. s;t j;c ii if s;; if i|< if ;;s y 

/if EMTE?.$STPING - AFTER TFE "LINKS" AND "?0R^" -/ 

ARE ENTERED INTO THE SYMBOL TABLE, THIS -/ 

/* PROCEDURE LOADS ANY IDENTIFIER ALONG WITH -/ 

/^' ITS LENGTH. (USED WITH CONSTANT STRINGS 
/^< AND CONSTANT IDENTIFIERS ) "/ 

/ If if 5|: if iy~ 5|i if if 5i< il: i;: >!: if if i? s',< if ❖ ^s ❖ it it sjs s? # it 5|: if it if if it s;! ;;s s;; if if it if it it / 

ENTSRiSTRiNG; PROC(A) PUB; 

DCL (N EASED PRIMTNAME)(1) BYTE; 

DCL A byte; 

CALL SETLOOKUP(A) ; 

CALL LIMITS(N(0)+1); 

CALL M0VE(PRINTNAME,SBTBL, (N (?)+l) ); 

sbtbl=sbtbl+(n(0)+i); 

END ENTERiSTRING; 

/if if if if if itififif if if if i;c it it i;: slJ it it it if s;; if it ;|i if siJ s;< i|s .f if if s;s if ;;i if if it 

- ENTER^C0NSTANT$ID - this PROCEDURE ENTERS - 

* THE FORM FIELD OF A CONSTANT ENTRY INTO 

- THE SYMBOL TABLE. - 

Ss Jr Jjs >;s V S’.S it s’,* 5:? ^'s s;: it y,? j;s j;? * s:< it if it if if it s;; * ;;s j;e y,; s;; s;; j',: JlJ ;J{ / 

ENTR$CONS$ID: PROC(A.B) PUB; /- A=POS/NEG , B=MP/M?P1/SP 
DCL (A,B,C) byte; 

C=R0L(A,6); 

CALL SETADBHPTR(4) ; 5YTEPTR(0)=C OR CONS$FNT^Y; 

CALL ENTFR$STRING(SP) ; 

CONST^PN^PTR=CONST$PN$PTR-l ; 

CONSTiINDX=CCNST$INDX-CONST$PM $S IZS f CCNST$FNiPTR '■ ; 

END tntr$ccns$id; 

/ s.'s ys 51! s;t if s;5 js * yc it if >^5 * ;;; it ys if it ;;s if if if it * it if s;< * j;-. if it >;i if y; ys it if s;s s;« it if 

- ENTSRiCONSTANT$ENTRY - THIS PROCEDURE - 

* DETERMINES ’wHiCH TYPE OF CONSTANT ENTRY IS - 

- TO BE ENTERED IN THE SYMBOL TABLE, AND 

- AND CALLS THE CORRESPONDING PROCEDURE TO - 

- MAKE THE ENTRY. 

if 5? if if s;< it if if sjj if Jltj;: ,;s it ;;; s;t if y.c if it i|: j;j if If ys s;,' if if ys y;: ;;s if if ys * j;; j't ^jcs.'s if >;! it ;;{ / 

EMTR$CONS$NTRY: PROC PUB; 

VECPTR=VECPTR-i; 

DO CASE EXPRESS$STK(S?) ; 

/- CASS CONSTANT NUMBER -/ 

CALL fntr$cons$num; 

/^' CASE IDENTIFIER CONSTANT -'/ 

CALL ENTR$CONS^ID(POS ,SP); 

/- CASE SIGNED IDENTIFIER CONSTANT’ -V 
CALL ENTR$CONS$ID(NEG,SP); 

/« CASE CONSTANT STRING -/ 

do; 

CALL SETADDRPTR(4) ; BYTEPTE(0)=16H OR CCNSiENT^Y 
CALL SNTER$STRIi\'G(SP); 
CONST$PN$PT?=CONST$PN$PTR-i; 

CONSTiINDX=CONST$INDX-CONSTiPN$3IZE(CONST$?NApTR 

end; 

end; /- OF CASE CONSTiTYRE -/ 

END entr^cons^ntry; 
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/ 5 ;c :;s y,c ^ 5 |r >;c sjs ?{: ;,‘j ;,*t ?|c 5;: s'.t 5;: :|: jI? :t; ?!: sir 'Jf J'.c 5'.: : 1 : si: J',: ?:c J'r 

/- ZNTR$CPLX$TYP - THIS PROCEDURE IS -/ 

/- CALLED TO ENTER T^E ’’LINES" AND ”f0RM" ROP. 

/* THE 'CO^^PLEX TYPE' SYUiPOL TAELS ENTRIES- 
/❖ note- teat this entry never has a PRINT- -/ 

/- NA(^F ASSIGNED. ’^V 

/ :>i ;;s y.c ;{< ;;s >|s ;;; 5|5 s;; ;;s « s,t sj; ;H ;;; ;;; « 5 |: 5;; ;;; j|j sjs j;-, :;t ;|: j): Jj; / 

FNTP$CPLX$TYP : PROC(A) PUB; 

DCL A pyte; 

CALL LIi^ITS(5) ; 

BASE ,APTRADD? = S'BTBL; 

ADDRPTR=0323H; 

CALL SETADDRPTR(2) ; 

ADDF P TR =P RV $ S BT ^F N TRY ; 

pfv^srt^snt^y=ease; 

CALL SETADDR?TR(4:) ; 

bytfptr(o)=a; 

3BT^L=SBTBL+5; 

END ENTRiCPLXiTYP; 

^ :;c :;c :;i 5;: 5;: :;c ;;c :‘.t :\t ^ 5 |r ;;i 5 ;: ;;; j',: >;c 5 |: J’.i i): / 

/* ENT?$STR$TYP - THIS PROCEDURE IS */ 

/- CALLED BY THE 'TYPE' PRODUCTIONS; "V 
/- 1. SET TYPE */ 

/- 2. FILE TYPE -/ 

/* 2. POINTER TYPE */ 

/- IT CALLS 7NTR$CFLX$'!’YP TO SET UP ITS -V 
/- "links" and "form", THEN IT SETS A POINTER -/ 

/- TO THE ASSOCIATED CCKPLEX TYPE. -/ 

y j;: j;: :|s s;j j;s ^•s i'f j|t s;-. 5 ;c j); * if :f s): :f :f :f s;: / 

ENT^AsTRATYP: PROC(A) PUB,' 

DCL A byte; 

CALL ENTP$CPLX?TY?(A) J 
CALL LIUITS ( 2) ; 

CALL SSTADDRPTR^U) ,* 

addpptp=type$loct; 

SBT?L=SBTBL+2; 

type$loct=base; 

END t^NTR$STR^TYP; 

y :;c >:c s;? ?;c ?;? >;c s;c ;;; s;c 5;? y.c 5;: ;;r ;;; :;c s;: 5;: i,': 5;: :;c 5;: j',: 5;? 

- ENTeR^PARAN’ETER$TYPE - THIS PROCEDURE - 

- UTILIZ^^S 3 BYTE O’^ CODE ^CR EACH SUBRCUT- - 

- INF PARAU.ETER THAT VAS RECOGNIZED AND PUTS - 

- THE FCLLOVaNG INFORMATION IN THE SYMBOL - 

- TABLE: 1. TYPE 0^ PAFAMETER - 

- 2-3. RELATIVE LOCATION OF PARAMETER. - 

# s:c ;f if if s;; if f s','. ^5 if t'f * si: if j;? if s;< f sis 5 ’,; if :;s s;; 'f s;: if >|> sis sis sis sis s|s if sis si: sis / 

ENTR$PRM;$TYP; PROC PUB; 

APTRADDR = P A. RA^'NUMLOC * i; 

ADDRPTR = SBTBL; 

SBTBL = SBTBL + 3-PAR AMiNUM - 3; 

BASE = LASTiSBTBI^ID; 

DO V'EILE PAHAMNUM <> £] 

CALL SETADDRPTR(4); 

TEMPBYTE = BrTEPTR('3); 
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APTP.ADDR = S2TPL; 

BYTE?TR(0) = TEMP5YTE; 

S3TPL = S3TBL + 1? 

CALL SET$PASTiPN('’) ; 

TE'^'PAriH = alirptr; 

APTPADPE = SB-^BL; 

AEEP.PTR = TEMPADLP; 

SETPL = SPTEL - 4; 

CALL SETACDRPTR(P); 

BASE = ADDBPT^; 

PARAMNU^! = PAPAMNUi^ - i; 

end; 

APTRADLP = PARA^NUr^LCC ; 

SETPL = SFTBL + 3- ( EYTSPTR ( 0 ) + 1): 

END ^NT?$PR^;i?YP; 

! j;: 5;j s;: :;c j;t 5 ;: :;s sis s;s s;s s;s s;s s;s sjs s;: s;-. s;s s;s s|s s;s slss;: s;s s;s s;s s;s :;s s;s :;s s;s s;s sit sis s.s si: sis sis sis 5,: sis si; :;s sis 

* PARV$EYTES - THIS PROCEDURE ENTERS T^’E MUMPER - 

* c? BYTES OCCUPIED BY A 'PARU/ D^CLAPATION AS - 
- A THIRD ARGUMENT IN THE INTERMEDIATE CODE. - 

* # y.; :•,! i'f j;: s;: sji ^ ;;; s;< s;c sj; j|s jjs :;s it * 5|: s’,; 5|; s',; sjc s|; s',;;;; s!; ;;;;;; 5|; s ): ;;; / 

PARM$BYTES: PP.OC(LCC); 

DCL LOG byte; IF LOC=0BH THEN 
CALL GS.NEPATE(02H) : ELSE 
IE L0C=13F THEN 

CALL GENERA TE(2£H ) ; 

ELSE 

CALL GENERATE(015); 

END PARM$PYTES; 

/ 5^ sjs sis sis sis sis sis sis sis sis sis sis sis sis sis sis sis sis sis sis sis sis sis sis sis sis sis s|s sjs sis sis sis sis sis sis Sis sis sis sis sis sis sis sis sis s’^ sis si: sis 

- RUILTilN ^PAPAMETSR - THIS PROCEDURE ENSURES - 

* A PROPE'D MATCH UP BETWEEN THE SUBROUTINE'S - 

* FORMAL PARAMETERS AND THE CALLING ACTUAL - 
PARAMETERS. 

it ;;; it it it s;; 5;; it ;;; it s’,: it « ;|c it i ^ ;;; it j;; ;;; itif j); ;;; ;;; ;;; j',; 5 ’^ ;;; it it it j;; j’,; it s’.; it / 

3UILT$IN$PARM : PROC PUB; 

APTRADDR = PARMNUMLOC ( SP ) ; 

BASE = APTRADLP ; 

IF BYTEPTR(0) = 13H THEN 

do; /- CHECK FOR INTEGER OR REAL INPUT -/ 

IF NOT( ( (SEL( (BYTSPTR(0) AND FORMMASK),3) OR 
VAR$ENTP.Y) = 

(FORMAfielD(SP) AND 7FH)) 

OR ( (ROR( (EYTEPTR(G) AND 70H),1) OR VA'JiENTF.Y^ 
(FOPMiFIELD(SP) AND 71^5))) TEEN 
CALL ERROR ( 'IP' ) ; 

ELSE 

do; 

CALL GEN$ADDR(?ARM,PRTiADDR (S? ) ) ; 

CALL PARMiEYTES(3YTE?TR(0'> ) ; 
end; 
end; 
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2LSE do; , , 

I? BYxEPT9(0) = e?3E THEN 

do; 

IF SHP.(FOR^i^'FIELD(SP ) ,3 ) = 03E TEEM /-' CAN'T 
CALL ERHOR( 'IP' ) ; 

ELSE 

do; 

CALL GEN$ArrR(PARM,PPT$ArDH(3P) ) ; 

CALL PAEK$3YTES(BYTEPTP.(0) ) ; 

end; 



end; 

ELSE do; 

I? NOT( (SHL( (BYTEPTR (3 ) AND FOEKN!ASX ) . 3 ) OH 
VAR^ENTRY) = 

EOFriEIELD(SP) ) THEN 
CALL ERRO?( 'IP' ) ; 

ELSE 

do; 

CALL C-EN$ADDR(?ARM,PRT$ADDR(S? ) ) ; 

CALL PARM$EYTES( BYTEPTR (e) ); 

end; 



3E 



end; 

end; 

?ARr.NU^LOC( 3P+2) = PARYN UiYLOC ( SP ) + i; 

IE S^R (EORY$EIELD(SP) ,7) THEN CALL GEN ERATE ( LCD I ) ; 

END built^in$parm; 

/ O# V*# %*# %*# 

^1% r|«^ ^1% #1^ >1% ^1% #j% ^1% >1% ^1^ 

ASSiC-NiPARAYETEPS - THIS PROCEDURE ^NSUPES - 
- A PROPER YATCE UP BSTaSEN TH^ SUBROUTINE'S - 
- ?0RY.®L PARAYETEFS AND THE CALLING ACTUAL '■= 



PARAYETERS. ’i' 

%•# %•# O# ' 



^ 



%t# ' 

-i' -'I' -*r -^r / 



ASSIGN$PARYS: PROG PUR; 

IF SIGN^FLAG THEN 

do; 

IE E0RY$EIELD(Y.P-3 ) = RUlLTi IN ^FUNC THEN 
CALL BUILT$IN$PARY:; 

end; 

ELSE I? F0RY.$FIELD(YP-2) = RUI LT ^ IN $7UN C THEN 
CALL built$inapary; 

ELS E ^0 j 

APTRADDR = PARYN UYLOC ( S P ) ; 

BASE = aptraddr; 

IF SER(BYTEPTR(0) ,7) THEN 

do; 

IF (RYTEPTR(0) and 7FH) = FORY ^ FI ELD ( S P ) THEN 
/- THIS IS A VARIABLE PARA'^ETER -/ 

CALL GEN$ADDR(PARYV,PRT$ADDR(S?) ); 

ELSE CALL Et=ROR('IP' ); 

ENT ; 

ELSE do; /- THIS IS A VaLUE PAF.AYETSR -- / 

IF (BYTEPTR(0) = FO^ Y$FIELD ( SP ) ) 

OR (BYTEPTR(0) = (F0RY$FIELD(SP ) AND 7FH ) ) TEEN 

do; 
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C4LL aF’J$ArDP (PAR.Y ,PRT $ADDR ( S ? ) ) ; 

CALL PARYiT^YTES (BYT3PTP (0) ) ; 

Si\'E; 

ELSE CALL ERFOP('IP'); 

end; 

PAP.YNUMLOC ( SP+2 ) = PAR YNUYL^C ( SP ) + 3; 

READiPAR^’S = TPUE; 

end; 

S'Jr ASSIGM$PARYS; 

/ -f -A~ slJ 5? 5‘r ''!< ❖ 5;; -A: s:< s;: 'Ai 5.’5 =0 s;.- if. ;|5 'A: 5;< 5? A- il'- i'f 'A- 'Af 5 ? 5|'. >;c ;|c :'.s / 

/* LOOKUPS IDENTIFIER - THIS PRCCEDUPE IS CALLED-/ 

/- WITH 'SYMHASE" AND PRINTNAYP SET. IT V-ILL -/ 

/- P.ETFFN '^RUE I? THE IDENTIFIER CAN ^E FOUND -V 

^AfA' A' A< s;: sis s;s 'A’ s|s 5|s ❖ s!s s;s :;s 'A' ’Is sis s;s s;s jI; sis ;;s >;s :;s s;s ;Is ;;s :;s sjs s.s y.s if if :;s if if if sjs :;s ;;s j;s :;c sjs ^s / 

LOOKUPilEENT: PROG BYTE PUB; 

BASE=HASETA3LE(SYY!F.ASH) ; 

DO WHILE (BASE <> 2) AND (SBT^L > S COPE ( SC OPE ^ NU Y ) 
IF CHK$PRT$NAYE(6) TEEN 

do; 

LOOKUPiADDR=?ASE; 

RETURN true: 

end; 

ELSE do; 

CALL SETADLRPTR(e) ; 

hase=addp?tr; 

end; 

end; 

R-TUEN false; 

END looeup$ident; 

y 5j? 5 ;; 5;c 5 ;: 5 ;: :!i ;;c :;c >|r Jl: i’.c 5’,: ?;c >;: :lr 5): 5|; ::c / 

/- LOCEUP$PRINTMAY^$ONLY - THIS FROCEDURE SETS -/ 

/- THE "SYMHASH” and CALLS LOOKUP 4 1 DENT TO -/ 

/sis estfRYINE II THE ENTRY IS IN THE SYYBCL -/ 

/- TABLE. TH~ ADDRESS CF THE P^INTNAYE IS -/ 

/- PASSED AS A PARAYETEE. IF THE ENTRY IS 
/- FOUND, TRUE IS RETURNED. -/ 

/ :;s sis s;s 5ls A~ sis sis si: >1: sic sic sic sic si: s;c sic sis sic sic sic sjc sic sic sic s;s sjcslc sic sic s;c sic if sis s.s si: sic sic sic sic s;c ;I: sic sic sis sis s.c s;s sl< 

LOOEUPiPN'AYE: PP.OC(A) ^YTE PUB ; 

DCL A ADDR; /’- ALDR OF ^RINT-NAYE -/ 

DCL B ^YTE,(N BASED A)(l) BYTE,* 

HASHCODE=0; 

DO P=1 TO N ( 0) ; 

HASHC0DE=(EASHC0DF+N(3)) and haseyask; 

end; 

syyeash=hasecoie; 



printnay5:=a; 

PETUPN looeuf$ident; 
END lOCKUFiPNAYZ; 



/SIC stoPE^CONSTANT irZNTIEIER 
/- CALDED WITH PRINTNAYE SET 
/- ID^NTI^^IER IN THE 'CONSTAN 

%t# 

STORS$COMST; PRCC PUP ; 



sic sic sic sic si: sic sic sic sic sic sic sic sic s;s sic sic sic s;c sic s;r sic 

- THIS ROUTINE IS -V 
TO LOAD AN "V 
T ’'ALUE' ^UABIABD"^.-/ 

s;c sic s;c si: si: sic sic sic sic s): sic s;c sic s,: s;c sic s|c s;c s;: si: s;c 



/ 

f 



/ 
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LCL (N PRIN^NAME) (1) EYTE: 

c»LL setl5o'^u?(sp J; 

CALI r 0 V P ( ? ? I N T N ^ r^E , . C ON S T i V A LUI f C 0 N S T i I N IX 
CCNSTi IMrx=CCNSTiINDX + (N (0 )+l ) ; 

CONST iPN i?ASE(CCNSTiPNi?TP )=SYN.H^SE: 

C 0 N S T < P N i S I Z E ( C C N S T i P N $ P T R ) = N ( 0 ) + 1 ; 
CONSTiPN$PTP=CONST$PNiPTR■^l ; 

END sto^e^const; 



END SYiYEOL; 



(N'z)-i: ) ; 



13 ? 



SYNTHI .SRC 



iPAGE’AlCTF(£2) T I TIE ( ' SY NTEl - PROEUCTION PROCEDURES') 
SYNTHI: DO; 

DECLARE LIT LITERALLY 'LITERALLY', 

LCL LIT 'DECLARE', 

EXT LIT 'EXTERNAL', 

POS LIT '0', 

NEG LIT '1', 

PROC LIT 'PROCEDURE', 

TRUE LIT '1 ', 

ADDR LIT 'ADDRESS', 

EALSE LIT '0', 

STATESIZE LIT 'ADDRt^SS', 

3UILT$IN^FUNC LIT '2DH'; DCL 

PS TACKS I ZE LIT '48', /- SIZE OF PARSE STACKS =:*/ 
EASHT3LSIZE LIT 'l28', /- SIZ"^ OF EASHTA3LE -V 
^CDSIZF LIT '8', /- BYTES USED TOR BCD VALUES -V 
r^AX^NEST LIT '2',/’’- r^AX LEVEL 0^ NESTS FOR TYPES 
KAX$A?RY$Di:^ LIT '5', /- U:AX ARTY DIMENSIONS -/ 
FORMMASK LIT USED TO DETERMINE FORM TYPE •>' / 

/- FCR^^ ENTRIES -/ 

LATL = TNiTRY LIT '0', 

CONSiENTRY LIT 'l', 

TYPE^ENTRY LIT '2', 

VAPiENTP.Y LIT '3', 

FUN C$ ENTRY LIT '5', 

TYPFiDCLE LIT '7' , 

NUMBER TYPES -/ 

ORDiTYPE LIT '0', 

INTEGER$TY?E LIT 'l', 

CPARiTYPE LIT '2', 

UNSIGN$EXPCN LIT '3', 

SIGNED^EXPCN LIT '4', 

BOOLEAN iTYPE LIT '5', 

REAL$TYPE LIT '2', 

C0MPLEX$TYPF LIT '4', 

STRING^TYPE LIT '4'; REJECT 

/- MANY OF THE FOLLOWING VARIABLES CAN EE REPLACED 
BY 

MAKING USE OF THE PARALLEL PARSE STACKS -/ DCL 
ARRY$DIMiL0l\VAL(25) ADDR EXT, ARRY$D IM$ HI VAL( 2? ) ADBR EXT, 
DISP$VEC(2f) ADDR EXT, ARRY$OFESET ADDR EXT, 

CONSTiPTR BYTE EXT, 

CONST$TYPE BYTE EXT, 

VECPTR BYTE EXT, 

TYPENUM BYTE EXT, 

START3D0S ADBR EXT, /-ADDR OF PTR TO TCP OF BIOS*/ 
M4,X based STARTBDOS ADDR , 

TYPF$LOCT ADDR EXT, 
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VARiPT^ BYTE BXT , 

‘LOCBASICTYP BYTE EXT. 

AFRY^CTY (iYAXlA?RY$DRO ABB? FZT , 
VAR$BASE(ie) ADLR EXT, 
v«r$3asei(i?) adde ext, 

ALLC$0TY Arr^ EXT, 

farent$type addr ext, 

CONST$IME'X BYTE EXT, 

LOOKUP^AEDR ADDH EXT, 

ccnst$value(16) byte ext, 

CC'J3T$PN $HASE(4) BYTE EXT, 
CONST^?N$PTR BYTE EXT, 

CONST$PiM iSlZE(4^ BYTE EX^ , 
n'TECrER$riE? ACDP EXT, 

STJPRiVAL(2) ADD? EXT, 

SUBR$TTPE(2) BYTE EXT, 

SUBRiPTR BYTE EXT, 

SITE$TYPiADDP(l) ADD? EXT, 

SUERiEORM BYTE EXT, 

SIGNVALU BYTE EXT, 

APRY^BASE ADD? EXT, 

AHRY$PTR BYTE EXT, 

A??,y$DII^$PTP BYTE EXT, 

PTRPTR BYTE ^XT 

REC^VARATY?(,^Ax|nEST ) BYTE EXT, 
REC$NST BYTE 

VA?IANT$PART(f<AX$NEST ) ^YTE EXT, 
NU!^.^ARRYiriX(^'AXiARRYiri^ ) BYTE EXT, 
ARRY$DIKEN (?e ) ADDR EXT, 
CONST$NUr"$TYPE(4) BYTE EXT, 
AHY$rM$ALR$PTR BYTE EXT: 

DCL BCDfJUK(BCDSI ZE) BYT~ EXT, 

SCO?E(10) ADDR EXT, 

SCC?E$NDT BYTE EXT, 

TEKPBYTE BYTE EXT, 

TEr^PBYTEl BYTE EXT, 

TE.'^PADDR ADDR EXT, 

TE^'.PADDP1 ADDR EXT,’ 



DCL 

/- COUNTERS "V 

CODES I ZE ADDR EXT, /- COUNTS NUMBER Or LABELS -/ 
ERPORCOUNT ADDR EXT, /- COUNTS NUMBER CE ERPCRS ’- 
ALLOC$ArLR ADDR EXT, /* COUNTS ?RT ENTRIES "V 
/- FLAOS USED DURING CODE GENEPATTON -/ 
XRlTEiSTMT BYTE EXT, /- IN \vRITE STATEMENT / 
READ$STMT BYTE EXT, /- IN REAP STATEM’ENT */ 
NEW$S'^MT BYTE EXT, /- GE'"S NEW RECORD -/ 
DISPOSEiSTMT BYTE EXT, /’- DISPOSES OE RECORD 
ALLOCATE BYTE EXT, /- BPT LOCATION ASSIGNED 
VAEPARM BYTE EXT, /* FORMAL ?a?AM IS VARIABLE TY? 
’V 

PEADPAHM.S BYTE EXT, READING ACTUAL PARAMTEPS 
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^?.ES3NT EYTE EXT, /* irSNTIflER IS IN SYN'S^L TAPLE 






/»" GLOBAL VARIABLES USEL BY TR'E SCANNER -/ 

TOKEN BYTE EXT, /- TYPE CE TOKEN JUST SCANNED «/ 

/- GLOBAL VARIABLES USED IN 3YKEOL TABLE 
OPERATIONS -/ 

BASE «DDR EXT. /- BASE LOCATION OE ENTRY ’V 
HASETABLE(^ASHTELSIZE) ADDR EXT, /- HASHTABLE A^RAY 

❖ / 

SBTBLTOP ALTR EXT, /- HIGHEST LOCATION OE SYYPCI 

TABLE -/ 

SBTBL ALDR EXT, /- CURRENT TOP 0? SYNiPOL TABLE -/ 
APTRADDR ALTR EXT, /- UTILITY VARIABLE TO ACCESS 

SBTBL -/ 

ADDRPTP BASED APTRADDR ADDR, /* CURRENT 2 BYTES 
POINTED AT */ 

(BYTEPTP. BASED APT?ADDR)(l) BY'^E, /- CURRENT BYTE 
POINTED AT -/ 

PRINTNAN-S ADDR EXT, /- SET PRIOR TO LOOKUP OB ENTER 

'•'/ 

SYKHASE BYTE EXT, /- HASH VALUE OE AN IDENTIEIEF 
LAST$SBT3LiID ADDR EXT, /- -OLD PREVIOUS BASE 
LOCATION -V 

RAPANINUT.LGC ^DDR EXT, STORES POINTER TO PARAv 
LISTING ’V 

SETBL5C0PE ADDR EXT: BAS^ 07 L^ST ENTRY IX 

PREVIOUS blCCX=V 



DCL BUILTilN$T-PL(13) BYTE EXT? 



/ ;!! si! 5;c j;5 * s!-- p A. R $ E R VARIABLES / 

DCL PA?r^NUU(PSTACKSIZS) BYTE EXT, /- UAINTMNS NUNBER O' 
PARAMETERS ASSOCIATED WITH A SUBROUTINE •■' / 

LABRLSTACK(PSTACKSIZE) ADDR EXT, /- TRACKS STATEMENT 
LABELS */ 

PARMNUMLOC(FSTACKSIZE) ALL® EXT, /U MAINTAINS THE 
LOCATION IN SYMBOL T3L WHERE PARAXTTER INPO STORED -V 

EA SE$LOC (PSTACKSIZE) ADDR EXT, /* STORES T®E SYMBOL 
TABLE ADDRESS OE THE PERT I NATS ENTRY ’V 

E0RM$7IELD(PSTACKSIZE) BYTE ®XT , /- STORES TUE EOPM 
FIELD OE SCANNED IDENTIFIERS -/ 

TYPE$STACK(PSTACKSIZE)EYTE EXT,/»- HCLIS A VARIABLE'S 

TYPE 

EXPRESS^STK(PSTACKSIZE)3YTE EXT, /- CONTAINS T?E 
TYPES OF THE EXPRESSION COMPONENTS "V 

PPT$ADDP (PSTAC'-^SIZE) ADDR EXT, /- STORES AN 
IDENTIFIER'S RBT LOCATION 
PARA!^NUM BYTE EXT, 

(SP,MP,MP?1) BYTE ext; 



REJECT 

/- MNEMONICS FOR PASCAL-SM MACHINE -/ 
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ECL NOP LIT 'O'.LNEP LIT 'l',LBL LIT '2',LEIE LIT '3', 

LEII LIT '4',PFO LIT '?',HTN LIT '6'.SW? LIT '7', 

UNSP LIT 't'.CNVE LIT '9',CNYI LIT'l^'.ALL LIT'll', 
LITA LIT'12',/rLr 1 1 T ' 13 ' , E L I LIT'14%SUP? LIT'1£'. 
SUBI LlT'ie' .r^ULP LIT'17',^’ULI LIT'lS'.Em LIT'19', 
DIVI LIT'20',MCLX LIT '21 ' , POLI L I T '22 ' , N'EOI LIT'23', 
LPOI LIT'24' ,CrPOI LIT'25',LSSI LIT'26',0RTI LIT'27', 
TIN LIT'26',ECLP LIT '29' ,NI'C1^ LIT'30',LPO? LIT'31', 
GEQE LIT'32',LSSB LIT'33',GRTB LIT'34',LQLS LIT'35', 
NECS LTT'36' ,LEOS LIT'37',GE0S LIT'3P',LSSS LIT'39', 
GPTS LIT'43' ,ECSET LIT '41 ' , N'FOST L I T ' 42 ' , I NC LI 
LIT '43 ' 

INCL2 LIT'44',NEG3 LIT'45', 

NEGI LIT'46' ,COt^^ L IT '47 ' , COI^ I LI T '46 ' , N CTX LIT'49', 
ANEX LIT'Se'.^OR LIT'SI'.STCF LIT'52',ST0I LIT'53', 

STO LIT'54',STE3 L IT '35 ' , S TE I LIT'56',STE LIT'57', 
UNION LIT '56' ,STEIE LIT'59',ISTC LI T '60 ' ,Ci\A I LIT'^1', 
BRL LIT'62',BLC LIT '6v3 ' , CN 2 I L IT '64 ' , .'^KSET LIT'65', 
XCHG LIT'ee'.PARM LIT '67 ' , PAP.T7 L I T ' 63 ' , PAP N.X LIT'69', 
INC LIT'70',E^C LIT'71',D^L LIT'72',V.RT LIT'73', 

SUE LIT'74',LESI LIT'75',XASS LIT'76',L0E LIT'77', 

LOEP LIT'78',L0DI LIT'79',REV3 L I T '30 ' , PLV T LIT'Sl', 
REVS LIT'82' ,V.^TB L I T '63 ' , V.P T I LIT'&4',YRTS LIT'65', 
DUA'P LIT'86',AES LIT'67',SCR LIT'-8',SIN IIT'89', 

COS LIT'90'.APCTN LIT'9l',£X? LIT'92',LN LIT'93', 

SORT LIT'94', OED LIT'95',E0LN LIT'96',EXE HT'97', 
TRUNC LIT'98' ,POUNE LIT'99',0RE LIT '100', CER LIT 

'101 ' , 

SUCC LIT'1'02',PRED lit '103 ' .seek LIT'104',PIJT 
LIT '105 ', 

GET LIT '106' .RESET LI ' 107 ' , RI'-'RT LI T'l 08 ' , PAGE 
LIT '109' 

NSV' LlT'lie'.nSPZ LIT'IH'.EYE LIT'IIP' ,xtrnl 
LIT'113', 

REV LIT'114'; 

$EJSCT ERROR tPROCCERRCOEE ) EXTERNAL; 

DCL ERRCOEE AEER; 

END ERROR ; 

LOOKUP$ONLT:^POC (A) BYTE EXTERNAL; 

ECL A byte; 

END lookup^only; 

MOVE: PROC ( SOURCE ,EES TI N , L) EXTERNAL; 

DCL (SOURCE, DESTIN) ADDR, 

l byte; 

END r^ovE; 

SET.ADDRPTP: PROC(OFESET) EXTERNAL; 

DCL OEESST BYTE; 

END setaddrptr; 



h^.QN3:PR0C EXTERNAL; 
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1 

I 



f 



END (YON 3; 

LII^ITS :PT?0C( count) EXTERNAL; 

DCL COUNT byte; 

END limits; 

ENTF$CPLX^TYP: PROC (A) EXTERNAL; 

DCL A byte; 

END ENTR$CPLX$TYP; 

SETiPAST^PN :PROC (OFFSET) EXTERNAL; 
DCL OFFSET BYTE; 

END SE'^$PAST$PN ; 

LOOKUP$PNAME;PROC(A) BYTE EXTERNAL; 
DCL A addr; 

END LOOKUP $P name; 



GENERATE :PROC (OBJCODE) EXTERNAL; 
DCL OBJCODE BYTE; 

END generate; 

GEN^ADDR :?ROC (A , B) FIT^^RNAL; 
rCL A BYTE, B ADIR; 

END gen$addr; 

ASSIGN^PARMS :PROC EXTERNAL; 

END ASS IC-NiPARMS; 



ENTE?iVAR$ID:P?.OC ( A , B , ID$ENTRY ) EXTERNAL; 
DCL (A,B,IDiENTRY) BYTE; 

END enter$var$il; 



ENTERiLABFL:PROC EXTERNAL; 

END ENTE^ Glared; 

SNTR^FRMiTYP :PROC EXTERNAL; 

END ENTR$PRM$TYP; 

PRINTCHAR ;PROC (CHAR) EXTERNAL; 
DCL CHAR byte; 

END PRINTCHAR; 

CRLF:PROC EXTERNAL; 

END crlf; 

PRINT$ERROR:PROC EXTERNAL; 

END ?rint$error; 

WRIT$ INT$FILE:?R0C EXTERNAL; 

END VRITiINTiriLE; 



MOVE$SBTBL:PROC EXTERNAL; 

END move$sbtbl; 
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CLCSZ^INT$FIL:PFOG EXTERNAL; 

END CLOSSilNTiEIL; 

PRINT;PROC (A) EXTERNAL; 

DCL A addr; 

END print; 

LOOKUPS IDENT:PP.OC BIT’S EXTERNAL; 
END LOOKUP $ I dent; 

REJECT 

IMIT$SYNTH: PROC PUBLIC.* 

CODESIZE = d; 

setbltop=^*ax-2; 

7ECPTP=0; 

const$ptr=0; 

CONST$INDX=0; 

CONST$PNiPTR=0; 

SUBR$PTR=0; 

ARY$rr$ADR$PTR=-i; 

ARRY$PTR=-i; 

variant^?art(0)=false; 

ARRY$OTY(0)=0; 

»LLOCi»DDR=0; 

END INIT$3YNTF; 



y s;: s;: 5;; i;: 5;: 5 ;j ;;i j;: ;;; 5;; Jlc :;j 5;: i|c 

- SUBRANGE$ERROR - THIS PROCEDURE IS CALLED - 

- IN THE EVENT OF AN I^^?ROPSR VALUE IN A =:= 
SUBRANGE. * 

5 |! s|t 5): !;< »;« 5;: .|{ 5 |t ;;t j;s iij j;-. J|s y.; s;s s|s s'; s;; sj; s;; s',; s',; s;; s); s;; s,^ 5;; s|; s|; s;; s,'; s;; 5;; s;; s',; s|; s|; s;; s|; sj; ;,-; / 

SUBR$SRHOR: PROC; 

CALL FRBOR( 'IS '); 

subr^type(subr$ptr)=integsr^type; 

SUBRiVAL(SUBRiFTH)=0000E; 

END SU3R Terror; 



/ ;‘,c ^ ^ :‘,s ^ 'A' >;c 5*^ 5,*? 5 ;: i\< s;? 

- ord$eighHov;$chfck - this procedure is - 
called to ensure the second SUBRANGE VALUE - 
* IS GREATER THAN THE FIRST. * 

5;; if s|; .;; s;; s); sj; sj; s',; s;; s;; s); sj; s|; s|; sj; sj; s'; s;; s;; s;; s;; if s;; s); s;; ;;; s;; sj; s;; s;; s|; s|; s;; s;; s;; s;: sj; s;-. s;; s;; s|; s;; ^ 

0RD^HUL0W$CHK: PROC PUBLIC; 

IF SUBRiPTR = e' THEN RETURN,* 

IF SUBR$TYPF(0 )=SUBR$TYPE( 1 ) TEEN 

IF SUBR^VAL(0) > SUBR^VAL(l) THEN RETURN; 

CALL ERROR ( 'IS ') ,* 

END OPDiHI$LOW$CHK; 
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( 





J 5;c if, if if 5|x if if if sj: ;;c j)? ;;: if if sj: ;;r :;c :;t ;',j ;;c j|c j;t if if ;;c ;;c :;c jj: i’.: 

SUBRANG7$iNTEGER$Hl$L0<.CH'i:cK - THIS PRCCE- - 

* DUPE IS CALLED TO ENSURE THAT ROTH SUR- 

* RANGE ELE^^ENTS ARE OF THE SAME TYPE, ANI - 
- THAT THEIR VALUES DO NOT EXCEED TH^ MAX - 

INTEGER VALUE. - 

^ if 5',? 5;c ;;s s'.c if if ;|s if itc if :>i if ;;c j;c 5 ;? if if if if if :l4 jIj :1: j’.i si? :J; 5 ;: ?;c :',4 ii: jjc jj; / 

SUB$INT$HL$CHX: PROC; 

IE SURR^PTR=0 THEM RETURN; 

IE SUER$TYPE(0) SUER$TYPS(1) THEN 

do; 

CALL SU3R$EREOP; 

RETURN ; 

end; 

IF SUBRiVALO) < 32766 AND SU3R^VAL(l) >32767 TR^N 

do; 

INTEGERiDIFF = SUBRiVAL( 0 ) +( -SUBR$VAL( 1 ) ) +l ; 

return; 

END ; 

SUB?$VaL(0) > 32767 AND SUBR$VaL(1) < 32768 THEN 

do; 

CALL SUBR terror; 

return; 

end; 

IE SUBR$V,4L(e) < 32766 THEN /* BOTH POSITIVE -/ 

do; 

IF(SUB?$VAL(0)-(3UR?.$VAL(1 )^1) ) < 32766 THEN 

do; 

I N TFG ER i D I EE= S UBR^ V A L ( 0 ) - ( S U3R$ V A L ( 1 ) ) +1 ; 

return; 

end; 

CALL SU3R Terror; 
return; 

END ; 

ELSE /■'•' BOTH NEGATIVE '-/ 

IF ( - SU3P$VAL( 1 )-( - SUBRiVALO^ +1)) < 32766 TH 

do; 

INTEC-ER$DIFF=( - SU^^R^VALd ) )-( - SCBPd VA1( 0 ) ) +1 

return; 

end; 

CALL subr$error; 

END sub$int$hl$ckk; 



^ if :;4 if 5|{ if if j;? i|4 i;4 ;;4 ^*4 j;4 :,c j|4 if 5l4 if ;;c if if if if :;4 5;; if if >;4 sic ;|4 :|4 s’.c :|r ;;c :|: :|: s|t :|4 s); :|c ^ 

/* SUBRANGE$IDENTirFR$PROCEDURE - THIS ROUTINE -V 
/^' IS CALLED TO DETER'^INE THE OFFSET ( NUMEJR -V 
OF ENTRIES IN A SUBRANGE ) AND THE "YPE CF -/ 

/- SUBRANGE, GIVEN THAT THE SUBRANGE TYPE IS -/ 

/- A NAMED IDENTIFIER. -7 
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^1' 



# % 



O# %*^ %*« 

rg> #1% 4^1% ^1% #1% ^1^ 



O# %l«4 / 

#,% #,^ #j% #1% f 



SU^$IESPR0C: proc; 

CONST^PN^PTP=CON’ST$PNi?TR-l ; 

CONST$INrX=CCNSTiINPX-CONST$?N ^S I ZZ ^ CCN ST $ ^M ^ PT^. ) ; 
P^INTNAMZ=.CCNST$VALUE(CONST$nDX); 

S YPFA S K=C ON S T $ PN i HAS H ( C 0 NS T ^P N $P TR ) ; 

IF NOT LOOXUP$irENT TEEN CALL SUER^ERROR; 

ELSE do; /- FOUND CONSTANT IDENTIFIER -/ 

rasf=lookup$addr; 

CALL SSTADIRPTR(4) ; /- POINTS TO ^^ORP ( E YTEPTR ) -/ 
SUR?$^ORh';=BYTEPTR(0 ) 

IF SUBR$^OP.r^ <> D7F AND (SUFR^FORy AND FORNNASE) <> 
CONS$ENTPY 

TEEN CALL SU3R$FRR0R; 

ELSE roj 

IF SUBRiFORM = 07E TEEN 



subr$type(subr$ptp )=ord^typf; 

CALL SETADrRPTR(e) ; 

SU3R$FORN.=BYTEPTR(0) ; /- LENC^'H 0? P.NAKE "V 
CALL SETArrRPTp(7+SU3RiF0Rr'') ; 
SrBR^VAL(SrBR$PT?J=DOUFLS(BYTEPTR(t? ) ) ; 

CALL SETADDRPTR(7^SU3R$ JOHN) ; 
SUB^TYP$ArDR(SUBRiPTR )=ADDPPTP J 
CALL ORDApi^LCWiCEX; 

fnd; 

ELSE do; 

ro WHILE ^SHR(SU3HiE0R^^ ,5) AMI 3E)=0'; 

IF SER(SU3R$F0RN: ,5 ) = NFC- THEM 

IF SICN’/ALU=POS THEN S I CrN VAIU=NEC- ; 

ELSE SIGMVALU=P0S ; 

CALL SE'^ADDRPTR(6) ; 

5UBR$F0PN=^YTEPTR(0 ) ; 

CALL SETADERPTH^T^SUERiFORi'^ ) ; 

IF NOT LOOKUP$ONLY(APT?ADD? } THEN 

do; 

CALL SUBRiERROR; 

SUBR^PTR=SUBRiPTR+l ; 

return; 

end; 

ELSE do; 

base=iookup$addr; 

GALL SETADrRPTP(4) ; 

SUBR$F0RN.=3YTEPTP (0 ) ; 

end; 

end; 

IF (SHF( SU^R$F0RN;,3 ) AND 3H) = 2 THEN 
do; 



CALL subr$srror; 

SU3R^PTR=SUBF$PTR+1 ; 

peturn; 

xEN D ; 

/- here we have EITHER AM INTEGER CP. CHAP ''V 
IF (SHP( SrTppAFnR(V,3) AND 3H) = 1 THEN 
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lo; /- If.'TZGZR ^ 

Call setadlrptp.( 6) ; 

SU5?.$F0PK=EYTEPT?.(3 ) ; 

CALL Si.TALIRPT?j7 + SUERiFCPr ) ; 

I? SICNVALU = .NEG THEN 

subr$val(suer^pt? )= - add^ptr; 

ELSE SUER$¥AL(SUER$?TR '■ = 4rLR^T?.; 
SUHR^TYPE(SU3R$PTR ) = I.'ITEGFRSTYPE; 

CALL SU3^INTiWL$CHK; 

E>ir ; 

ELSE 
DO ; 

CALL SETALERPTR(6) ; 

SU3R$FCEK=3YTE?TP,(0 ) ,* 

CALL SETADDRPTP (7+SUBRiFOR'Y ) ; 

IF BYTEPTR(e) <> 1 TEEN 

do: 

CALL SUPPiEP.ROR; 

SUPR$PTR=SUBR$PTR+1 ; 

RETURN ; 

end; 

CALL SETADERPTECP + SUPRiFOPr ) ; 

BYTEPTR(0) <41H OF BYTEPTR(0) > 5AH TEEN 
CALL SURRiFRROp; 

ELSE ro; 

S r^3 R S V A L ( S U BE i PT P ) = E C U 3L ^ ( 3 Y TEF TR ( 0 ) -4 1 H : 
S U 3 R $ T y ? E ( S U B R $ P T R ) = C H A R $ T Y ? E ; 

CALL r'^E$HI$LCViCHK; 

END; 

end; 

SN L ; 

end; 

end; 

SUPR$^TR=SUBR$PTP+1 ; 

END SUB$ID$PPOG ; 



/ V.C i!? :;s 5;- 5|c 5;^ ?;s 5;? 5 |c jj: s;? 5 ;c 5;? Jli 5 !c :;c 5 |t j;: :;c :;s ;!c / 

/- SU3PANGE$CASE - THIS PROCEDURE IS USED TO -V 
/- DETFRMNE THF NUMBER OF ENTRIES IN A SUBRANGE-/ 

/ ❖ J’.s ❖ !!s ❖ 5|t 5 ;; 5;c s;: :;s i,: >;t jjs s'.; i,: s); ;;c j;; ;;r j;; ^ 5|; i \: :|s ;;s s;: * ;;; ;;; si: / 

SU3R$CASE: ?P0C(A); 

DCL A byte; 

S IGNVALU=POS; 

DO CASE EX?RESS$STK( A) ; 

/- CASE CONST NUMBER -/ 
do; CONST$?TR=CONSTiPTR-l ; 

I^ CO.NST$NUK^TYPE(CONST$PTR )=REAL$TY?E THEN 
DO ; 

CALL subr$error; 

CONST $ I N DX = CON STS I N DX-3CDS I Z E ; 

fnd; 

ELSE 
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ro; /- INT2G;R TYPE -/ 

C 0 N S $ I N DX =C C N S T ^ I N D Z-? ; 

CALL 

,YOVS( .CONST$VALUE(CO^!ST$IMLX ) , . SUPP.i VA L ^ S'IPR$ PTF ) ,2) : 
SnPR$TY?P(SUBP$PTE ) = I TECP? YPE ; 

CALL SUPSI N'TS^^L$CHK; 

enl; 

SU3?iPTP=SUBH$PTP+l ; /- NEXT TO FILL -/ 

end; 

/- CASE IDENT CONSTANT -/ 

CALL Sin$ID?PROC; 

/- CASE SIGNED IDENT CONSTANT -/ 

DO * 

s ignvalu=neg; 

CALL SUP$ID$P?.OC; 

end; 

/■'' CASE CONSTANT STRING -/ 

do; 

CONST$PN ApTR=CONST$?N$PTR-i; 

CCNST5lNDX = CONSTiINDX-COM3T$?NiSIZE(CONST5PNt t'xR) 
PHINTNAr^E=. CCNST$VALUS( CON S TS I N DX ) ; 

IE CONST$PNiSIZS(CONST$PN^PTR) <,> 2 TEEN 

CALL suer$errcr; 

ELSE 
DO ; 

EASE = PRINTM Ai^E; 

CALL SFTADDRPTRd ); 

IT PYTEPTP(G) < 41H OR BYTEPTR(3) ^ oAE THEN 
CALL SUER^SRROP; 

ELS^ 

BO > 

SUBR^HAL(SUPR$?T^ ) =I OIJPL E ( E YTE P'lR ( 0 ) -41 ) 

S USE $TY PE ( SU3R$PT? )=C EARS TYPE; 

CALL ORD$HI$LO>dC^E; 

EM D ; 

end; 

SU3RSPTR=SU3Pi?TP+l ; 

EN D ; 

end: /- 0^ CASE EXPRESS$STK('^P) 

END subr$case; 



V# %•# H*# %V ^ 

^1% ^1% ^1% #1^ #1^ #1% #1% #1^ #1^ #1% #1^ #1^ ^1% # 

/’^ ENTE?iSU?RANGE$ENTPY - TEIS PPOCEDU-E IS -/ 
/- USED TO ENTER A SUBRANGE TY^E ENTRY INTO -/ 
/- THE SYr".B0L TABLE. THIS SYN'iBOL TABLE ^NTRY -V 
/^' HAS NO PPINTNAME ASSOCIATED V-ITH IT. -V 

%•«» %•# %i# Vn* H*#*l*# % 

#1^ #1% ^1% ^1% ^I'k ^1% ^1% ^1^ ^1^ ^1% ^1% >1% #1^ ^1% ^1% 



ENT°SSUBiMTRY: PROC PUBLIC; 
TYPEilOCT=SBTPL; 

CALL Llt^ITS ( 12) ; 
V7CPTR=V^C?TR-1 ; 

CALL SUB^iCASE(SF) ; 



/ 



/ 
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V?C?T?=V?C?TR-1 ; , 

CALL SL'ER$CASE(K?) ; 

C\LL RNTR$CPLX$TYP(S"L(SU3P$TY?T^(0) .6 )riR 0?R': 

CALL SiTADDP?TR(5) ; 

IF SUER$TY?E(0)=INTSGERiTYPF ?HFK 
\DB^PTR=.3UILT^IiIiT3L; 

IF SU3R$TY?F(0)=CHAR$TY?F THEN 
AEDRPTR=( .EUILT^lN^TFL+23) ; 

IF SU3E$TYPF(0)=CRL$TYPF TH^N ADLPP TR=S U3 $ TYPi « LLR ( ? ■ ; 
CALL 3FTADDRPTR(7) ; 

Ar'DRPT?=SUBR$VAL( 1) ; 

CALL SFTADBPPTR(9) ; 

ALEPPTP=SU3R$VAL( 3) ; 

CALL S ET/ EERFTR ( 1 1 ) ♦ 

IF"sUBP$TYPF(0) = TNTFGiRiTYPF TRIN /- RA.^3F 0 TO 64K ■'■ / 
ALEo?T^ = INTEGFR^DIFF ; /- ^'A Y PF GREATER THAN 32767 ’V 
ELSE 

ArERPT?=( ( SU3PiVAL(0)-SU3R?VAL(l ) '+l) J 
3G3PiPT?=3; 

S3TEL=SETBL+8; 

EMD ^NTP$SU3iNTRY; 



! j’.c 5|i j)? :;c j;? 5|t :;s V.: :;s 5*.c j;c :|c 5l: j’.; I'.c ;;c ;;c 

- TYPFiEPROF - THIS PROCEDURE IS CALLED IN TRY''- 

- event CF an INCOKPATIPLE TYPE. - 

5',: 5 ;-. s'.s ;|: ;;s 5|: ;;; ;;; ;;j ;;; 5 ;; sS -.5 '-Is "f * 5|- s'.s v :o sis si: Sr si* ='.! sis sis si; :;s ^ 

TYPF^EPRf^P : PROCj 

allocate=falss; 

CALL EFP;0P( 'IT') ; 

END type$error; 



y :|c 5;; :;c 5;: 5;: :;i j;: 5;: 5 ;c :;c ;;j ;;; :;r ;;c :;c j;: :;c ;;i 5;: j;: ^ 

/- ALLOCATE OFFSET - THIS PP.nCEDUPE IS CALLED TO-V 
/- DETERMINE THE NUMBER OF BYTES REQUIRED FOR -V 
/- STORAGF OF A VAPIAplE OF THE '^YPE GIVEN IN -/ 

/- THE PARAMETER 'A ' . THE VARIABLE'S ALLC$QTY ■'' / 

/- AN'D ALLCSFOP^’ ARE SET UPON RETURN. -/ 

/ s;c sis s;s :;s sis sis s;s sis sis sis sis sis sis si; s|s sis s;s sis sis si: sis if if if sis sis sis sis sis si: si: si: si: si: si: si: si: si: si: si: s;: si: si: si: si: si: si: si: ^ 

ALLCiOFFSET: PROC(A) PUBLIC; /- TYPEiLOCT -/ 

I CL A adlr; 

DCL (ALLC$F0RM,3) BYTE; 

BASF=A ; 

CALL SETALLRPTRU) ; /- POINTS TO FORM OF TYPE -/ 
ALLC$FOPM= 3YTEPTR(0) AND pOPMMASH; 

IF ALLCiFOP^" <> TY?F$£NTRY ANT ALLCiFORM iYPFLCIE 

THEN 

do; 

CALL TYPEiEPROp; 

ALLC$CTY=1 ; 

ALOC3ASICTYP=0; 
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RZTUPN ; 

E^ir ; 

DO V'EIL7( (SHP(3YTIPTR(0) ,3)AND F0RY:YAS'O=7 AWD 
ADLCi70?M=TY?5^Z.\THY ) 

CALL S7T$?AST$?fi (7 ) ; 

BA37=ADDRPTE; call SETIDDHPT? (4) ; 

TYPiiLOCT = SASE; 

ALLCiFO?.M=BYT2P7R(0) AND EOR^^ASK; 

IF A.LLC$FO?.M <> TY?F$EiVTRY AND ALLC^FOP^ TYP7DCL7 

THEN 

ro: CALL TYP7$E?.R0R; 

ALLC$OTY=i; 

AL0C3ASICTYP=3; RETURN ; 

end; 

end; 

/- HE^F EXISTS either A BASIC TYPE OR A TYPE DECLAPITICN 
ALLC$FOR>" = TY^EiENTRY THEN 
do; /" BASIC TYPE =V 

DO CAS^ (SHH(PYTEPTR(3) ,3) AND FOP^KASE); 

/>;: imteGER -/ 
do; 

ALLC^CTY=2; 

ALCCBASICTYr=IMT7GER$TYPE; 

end; 

/- BCD REAL -/ 

ro; 

ALLC$CTY=3; 

AL0CBA3ICTY?=UNSIGN$7X?0N ; 

END ; 

/- CHAP.ACTE? -/ 

do; 

ALLC$CTY=i; 

AL0C3ASICTT?=CHAF^^Y?E; 

end; 

/- BOOLEAN -/ 

do; 

ALLC iCTY=i; 

ALO C BA s I C T YP =BOOLE AN $ T YP E ; 

end; 

text -/ 
do: 

A LLC $OT Y = ? ; 

ALOCBASICTYP = STRING$TYPF; 

END ; 

end; /- 0^ CASE '-V 
allocate=true; 

RETURN ; 

end; /- EXISTS A TYPE DECLARATION -/ 

TEMPPYTFl ,ALLC$F0PU=(SK?.(BYTFPI® (0) , 3)AND FOFYNASE ) ; 

IF ALLC$F0R'^ = 0 THEN 
do; /- SCALAF ’V 
ALLOC ate=true; 

ALLCS0TY=D0UBLS{ALLCSF0RM+1 ) ; 

alccbasictyp=ord$tyfe; return ; 
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F K D ? 

IF ALLCiFOP'^ = l THFN 
FO; /- SU3PAN5E -/ 

alloc;tf=true; 

» L0r:3ASICTYP=CC^'PLEX$TY?E ; 

3 =Shr (byttptr((*) ,e) ; 

IF ^ = 1 TKFN AI.LC50TY = D0U3LF (ALLC AfOFM- 1 ) ; 
FLSF ALLC$CTY^rCUPLE(ALLC$FORY); RETURN; 

end; 

IF ALLCiT-0Pr = 2 THFN' 

ro; /- ARRAY -/ 
allocatf=t?ue; 

ALOCBASlCTYP=CO^PLFX$TYPS; 

CALL RETALLRPTRfe) ; 

A L L C $ 0 T Y = A D L ? P T ? ; RETURN; 

end; 

/- ALL OTHER CASES ALLOCATE AN ALLRESS EIELL -/ 
ALLCi0TY=D0U3LE(?) J 
ALOCRAS ICTYP = CO^"PLEX$TYPE; 

ALLOC AT E=TRUE; 

END allc^offset; 



/’- 

/- 



^1% ^1% 



AL^NDX$0FFSET - THIS PRCCEDUPF IS CALL’D -/ 
TO DETERMINE THE NUi'^PER OF BYTES PECUIRED -/ 
BY AN ARRAY TO STORE THE ARRAY'S CO^'PONENTS - 
TYPF^LOCT is set P^IOR TO CALLING THIS -V 
ROUTINE. AN ADLHESS VARIABLE CONTAINING THE 



/- BYTE COUNT IS RETURNED. */ 

^ ?*% ?*% 5*? 5jc ^ SjC 5 % ?*X 5*C ijc J*C Vc SjC ^ i J J*C 5*C 

AL$NEX$OFFSET: PROC ADDR PUBLIC; 

DCL A ADD?, 3 3YT^; 

A ,BASE=TYPEiLOCT; 

CALL SETADDRPTR(4); 

DO WHILE (SER(BYTEPTR(e) ,3) AND FOR^^^’ASX) = 7 
( 3YTEPTR(0) AND FO^N.^ASH ) = TYPF^E 
CALL SET$^AST$PN (7) ; 

base=addrptr; call setaddrptr ( 4 ) ; 

TYPF$LOCT = BASF; 

ENl; 



I.. »•» ,1^ / 

I' / 

V 

■-/ 

I' 'I' 't' / 



AND 

i\try; 



/’- HERE WE HAVE EITHER A SCALAR , SUBRAN ^-E , FCCLEAN , OH CHAR 
TYPE ^'/ 

B= SER (BYTEPTR(O) ,3) AND FORNr^ASK; 

IV (BYTEPTR(O) i.ND FCR^'.^'ASX) = TYPEAENTRY THEN 

do; 



IFE=0CR?=1 THEN 

do; 

CALL ER?OF('IA'); 

5 

RETURN DOUBLS(B); 

end; 
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I? P=? THEN /- character SUPRANG? -V 

to; 

B = 26 ; 

^2CiVAR$TYP( REC$NST)=CH«.FiTY?E; 

RETUR'J D0U.BLE(3); 

ENr; 

/- EC CLEAN >■■'/ 

RECSVAR$TYP(BEC$NST)=300LS« N$TY?E; 

B = 2 ; RETURN rOU^LE(B); 

ene; 

COMPLEX TYPE ''V 

IE (( BYTEPTR(O) .» ND FORMMAS") <> TY?E$DCLE OR 
( ( E 0 0 ) AMI ( B 0 1 ) ) ) TEEM 

do; 

CALL ERROR ( 'lA') ; 

B=2; RETURN DCUELE(E); 

end; 

IE B=0 THEN 

do; /- SCALAR TYPE 
REC5VAR$TYP( REC$NST )=com?lex^type; 

CALL SET$PAST$PN(7) ; 

RETURN DOUBLE fBYTSPTR(0) +1); 

end; 

/=i'- SUBRANGE TYPE -V 

REC$''AR<TY?(RECANST)=CRr$TY^F; 

CALL SETADDRPTE(ll); 

RETURN ADDRPTP; 

END ALiNDX$OEESET; 



^ 5,5 5,C 5,5 

- ALLOCATE^VARIABIES - THIS PROCEDURE IS ^ 

- CALLED TO ASSIGN PRT LOCATIONS EOF EACH 
OF T^E PROGRAM VARIABLES. 



^ 



^ #1^ ^1^ ^ 



^ % 



^ 



ALLOC$VAFS: PROC PUBLIC; 

TEMPBYTEl = 0; 

CALL ALLC$OFESET(TYPE$LOCT); 

TEMP3YTE = VAR$PTP; 

DO VAR^PTR = 0 TO TEMPEYTE; 

PASE=VAR$BASE(VAR$PTR) ; 

CALL SETADDRPTR(4) ; 

IE SHR (?YTEPTR(0) ,7) THEN 

do; 

BYTE?TR(0) = (BYTEPTR(?)) OR ( 3 FL ( ALO C BAS I CT Y? ,c 
VAP$ENTRY) ; 

A^TPADDR = VARiBASEl (VARiPTR) ; 

ADDRPTP = ALL0C$ADDR; 

ALLOCAaDDR = ALLOClADDR + 2; 

end; 



ELSE do; 

BYTEPTR(3)=S-L(AL0CBASICTYP,3) OF VARiENTRY; 

IF fBYTSPTR(O) = 25H ) AND (TEMPZYTEl = 2; THEN 



) OR 
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Dc; 

APTRADLR - TYPEiLCCT + 
ALLC$OTY = AE'ERPTP; 

^^JE; /- I? TEYP3YTE1 = 3 THE^i 



Dn; 

APTRAEER = TYPZ$LOCT + 6; 
APTPADER = APTP.AEDR + PY'^EPTR(e) 
APTRAEER = AEDP.PTR + 5; 

ALLCiOTY = AEERPTP; 

fne; 'V 

A?TEADE^=VARA3ASE1 (7AR$PTF ) ; 
ArrRP?R=ALLcciAErR; 



4LL0CiAELR=ALL0CiAEEP+ALLC50TY; 

ene; 

A P T R A r r R= A P T R A r ER +2 ; 

aeepptp=typehcct; 

end; 



TEyPPYTEl = 0; 
EMD ALLOC iVARS; 



1 : 



f if . « if if if j;- o. .w j;. Jj. 5.5 ... ... ... . w. 5.. .;j 

CASEiPTPPTH - THIS PPCGEEUPE IS CALLEE TO - 
« SET i VARIABLE'S APPROPRIATE TYPE. - 

j;: if if s;: s;s s;j ^ if sic s;c s;c sic sic sic sic sic sic sic sic sic sic sic sic sic sic sic sic sic sic sic sic sic si: sic s.c sic sic sic sic s.c sic sic s- sic y 

CASE^PTRPTR: ??.nC(A) PUBLIC J 

rCL A byte: 



EO CASE a; 

/- CASE 0 ORE VARIABLE -/ 



Eo; 



PTPPT? = 10H; 

CALL SETiPAST^?N(9) ; 

PASE$LOC(S?) ^ AEIRPTR; /- AEER OE PARENT -V 

eve: 



/- CASE 1 INTEGER VARIABLE -/ 

PTRPTR = 09E; 

/- CASE 2 CHAR VARIABLE 
PTRPTR = 3^E; 

/- CASE 3 REAL VARIABLE -/ 

PTRPTR = 0AE; 

/- CASE 4 COMPLEX VARIABLE ’^/ 

EO: /- ARRAY, subrange, USER EEEINEE TYPES -/ 

TEMPAEEP = base; /"' STOR^ VARIABLE S 3TL LOCATION 
CALL SET$?ASTi?N(9) ; 

BASE = AEERPT?; 

CALL SETAEERPTR(4) ; 

IE BYTEPTR (0) = 17H THEN /* AR^AY 'V 
Ec; 

A? TP A DDR = APTRAEER + 6: 

TEMPBYTEl = BYTEPTR (3) 5 

ene; 

ELS"^ IE (BYTEPTR(0) ANE OEH) = 0EH THEN /- SUBRANGE 

TYPES */ 
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TZMP3YTZ1 = 3FE(3YTEPTR (0 ) , c); 

ELSE IF BYTS?TH(0) = 7AH THEN 
do; /- USER DEFINED TYPE 
TEI^PRYTEl = 0 ; 

CALL SST^PASTAPN (7) ; 

RASE = ADDRPTP; 

CALL SETADDR?TR(4:); 

I? BYTEPTR(0) 27H TFEN CALL ERROR ('NS''; 

/- THIS IS A SET TYPE -/ 

CALL SET.ADDRPTR (5) ; 

PAS^$LOC^SP) = ADDRPTR; /* ADDR of parent ’V 
end; 

ELSE IF 5YTEPTR(0) = 37E THEN 
do; /- POINTER -/ 

CALL SETADDR?TR(5 ) ; 

BASE^LOC(SP) = ADDRPTR ; ADDR OF PARENT -V 

end; 

ELSE TEKP3YTF1 = 06H; 

DO CASE TEUPBYTFi; 

PTRPTR = 10E; 

PTPPTR = 09H; 

PTRPTR = 0BK; 

PTRPTR = 0AH; 

PTRPTR = 0CH; 

PTRPTR = 06H; 

PTRPTR = 0CH; 
end; /-' OF CASE 

BAS^^ = TEi"PADDR; /- RESTORE ORIGINAL BASE LOCATION 

end; 

/- CASE 5 BOOLEAN VARIABLE -/ 

PTRPTR = 06H; 

end; /- OF VARIABLE CASS "/ 

END CASEiPTRPTR; 



! 5’,: :;c sj: 5 ;? 5 ;: 51? 5’,: 5)? y,: 5 ;: i|c ;|c j'.c 5 ;: * :;c ;;c 5): :;c s’: :|c ?:c j); / 

/- SET$VAFIA3LE$TYPE - THIS PROCEDURE IS CALLED '-V 
/- TO SET THE VARIABLE TYPE, VARIAa^LE SIGN, AND 
/- ADDRESS OF TEE BASIC TYPE GIVEN. '"HE ADDRESS^/ 

/- VARIABLE 'LOOKUP$ABDP' IS SET P^IOR TO THE -V 
/’- CALL. V 

/ 5jc 5;^ 5|c i\t j*.? 5jc j'.s i\c 5|^ j'.j :;r sit s|; :|; :|t ;|t s;t :|t s|: :;c :|t y.t sjt sit ;;t sit s|t s|t s|t sit 5|t s|t / 

SFT$VAR$TY?E: PROC PUBLIC; 

SET$TY?^N^LOC: P?OC(A ,B,C) ; 

rcL (A, B, c) byte; 

CALL set$past$pn(a) ; 

IE (E=34K) OR (?=05H) OR iB=06-) OR = THEN 

PRTADLR(SP) = APTRADDP; 
else PFTADDF(SP) = ADDRPTP; 

TYPEiSTACK(SP) = (? OR ?.OL(C, 7)); 

END SET$TYP§N$LCC ; 

BASE = lookup$addr; 
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CiLL,S''^iDDRPT? (4) ; , , 

?0?N"^FIELDTs?) = ?YTEPTR(<5); 

ro CASE (FnR^-$FIELD(‘^?) ANT JCR[^'^» S ; 

1 

CO^ISTANT entry 'V 

RO : 

SIGN^’RALU = POS; 

DO CASE (SHR(BYTEP':R (2) ,3) AND ^3H ; 

/■'- FINE OUT k-HAT KIND OF CONSTANT IT IS -/ 

DO WHILE (SHR(BYTEPTR(0) .3) AND ) = e; 

IF (SHR(?YTEPTR(3) ,5) AND 01H) = 01F THEN 
IF SIC-NiVALU THEN Sirw$VALU ^ NEO; 

ELSE SIGN$VALU = POS? 

CALL SETADDPPTR(6) ; 

IF NOT LOOKUPiPNAYEf APTRAEER) THEN 
DO? 

CALL E?ROP( 'IC ') ; 

RETURN : 

END? 

CALL SETADIRPTR (4) ; 

IF (PYTEPTRfe) AND FCPrYASK' yn CONS$ENT'dy THEN 
DO? 

CALL FPRO?( 'IC') ? 

RETURN? 

END? 

END? 

/- INTEGER OR POOLEAN CONSTANT Y/ 

RASE < .t^Ef^ORY THEN /- ROOD FAN ■'' / 

CALL SETiTYPiNnOC (9,4H. POS ) ? 

ELSE /- INTEGER -V 

CALL SET$TYPimLOC (7.EH,3IGM$VALU) ? 

/- REAL CONSTANT -V 

CALL SET$TY?iNiLOC (7,6H .Sir-N$VALU)? 

/- STRING CONSTANT -/ 

CALL SETiTYPiN$LOC (7.7F .3 ) ? 

ENL? /- OF CASE -/ 

E.f?D; 

/'■' TYPE ENTRY -/ 

f 

/- VARIABLE ENTRY -V 
DO? 

IF SHR(EORKiFIELKSP) ,7) THEN VARPART = TRUE? 
PTRPTR = (SRR(?0EN:$^IELD(SP) ,3 ) AMD FCR^i'^ASE)? 
BASFiLOC(SP) = BASE? /■•' 3YYBOL TABLE LOCATION OF 
VARIABLE "/ 

CALL CASE?TRPTP(?TRPTR) ? 

CALL SET$TYP$NHOC (7 , PTPPTR , 2 ) ? 

END? 

/- PPOCEDURE ENTRY 

? /* NO SUCH THING EXISTS IN PASCAL -/ 

/* FUNCTION ENTRY */ 

DO? 

IF FORP’^FIELD(SP) = BUILT-IN AfUN C THEN /- '^niLT IN 

FUNCTION 
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rr ; 

CALL SETSPAST$PiJ(e) ; 

ir 3Y^5prnp(3) <> 

IF 5YTT^?TR(e) <> erZH THEN 
DC; 

CALL CASFPTRPTR (^YT"PTR( 2) ) ,* 

TYPZ$STACK(S? ) = PTP.PTR; 

end; 

APT^AEDP = APTRADDP. i; 

PARMNir(PP) = EYTEPTR(e); 

PA?^:iUMLOC(S?) = APTPADDR + 1? 

fnd; 

ELS 5 ro; 

C*LL SE?$PAST^Pi'i ( 16 ) ; 

CALL CAS?PTRPTR(SHR(PYT^PT^( C) .3) A^'D FORKKASY ) ; 
CALL SET$TYP$N$LOC(10 .PTP.PTR ,0) ; 

CALL SET^PAST$PN(7) ; 

PARYN’Uh(SP) = PYTF?TR(2'); 

CALL SETiPASTAP.N ; 

PAPiY!MirLOC(SP) = ADDPPTP; 

CALL SETi?ASTiPM(14:); 

labrlstack(sp) = alerptr; 
end: 

IF TOKEi\ IS THEN READPARi^S = TPUF ; 

/- OTHERWISE, THIS WILL 5S A FUNCTION ASSIGNMENT 
STATFY'^MT -V 

PA.“MNUN'L0C(SP+2) = PARMN'U^LOC ( 3P ) ; 

Zfir ; 

/- FILE ENT?’' "'/ 

/■' SCALAR ENTRY '-/ 

D 0 » 

CALL SFTiTYPiNUOC (7,11H,2) ; 

APTRADER = APTPAEER + l; 

EA3E5L0C(SP) = ADDPPTp; 

end; 

ENE: /- OF CASE -/ 

END SET^V AR^TYPE; 



/ i\i 2|: j;? 3»c ;;s 5 ;: 5',c ;;s :;c sjt 5 ;: s*,: :;c ;;j ;;s 5;s ;;s :;t 5 ;: 5|: / 

/- LOAD^VAPI - THIS PROCEDURE GENERATES THE -/ 

/- INTERN’EDIATE COPE TO LOAD THE NEXT VARIA^LF -/ 

/- ON TEE EXECUTION STACK OF TEE OBJECT FILE ■- / 

! if. if if if if if if :|5 j;-. ;J; if if if if if s|; ;;; if s;; if ;;s s;: s;s if s;; 5 ;: :;s ;;; ifif / ^ if if / 

LOAD^VAPI: PROC(PT) PUBLIC; 

rCL PT byte; /* pt represents a stack pointer -•'/ 

rXPiSTACK: PPOC ; 

DCL A byte; 

DO CASS (TYPEiSTACKfPT) AND OFF); 

A = opdS'^ype; 

A = ord$typf; 



/ 



» = 3C0LE» nstype; 

A = U’tsc-fp^type; 

A = UNSiGNiSXPON ; 

» = steims$type; 

A = 300LEA N’^TYPE; 

A = If!TEGSH$TYPE; 

4 = UNSIGN$EXPON J 

A = chah$type; 
end; /* OF CASE -/ 

EXPRSSS?STK( PT) = A? 

END EXP ^ stack; 

LOAD: ^ROC(A, B, C); 

DCL (A, B, C) 3YTE; 

/- CHECK IP LOADING A FUNCTION VALUE -/ 

IF (FORr$FIELE(PT ) AND ?FH) FUNCAFNTHY TEEN 

do; 

CALL GENFFATF(A); 

CALL GENEFATSf E ) ; 

IF SHE(TYPZ$STACK(?T) . 6 ) TEEN /- ACCESSING APRaY 

CALL GFNEPATF(SU3) ; 

ELSE CALL GSNERATE(C); 

I^^ A = LDI3 TEEN /•:* LOAD PES"’ OF BCD -V 

DO PTHPTP = 2 TO r3CDNUN‘( 0 ) /2 ) ; 

APTPADDR = APTRADDP - 2T 
CALL GSNFPATt^(3YTFPTR(3 ') ) ; 

CALL GENERATE ( H IG-E^ADD - PTP^ ); 

end; 



IF SHP(FOPN'iFIELD (PT ) ,7 ) THE'I /'■' VAPI aBL^ 
PARAMETER -’V 

CALL Generate ( LCD i ) ; 

end; 



ELSE CALL G EN $ ADDP ^ PRO , LA EELSTACK ^ N:P ) ) ; 

CALL exp$stack; 

END load; 

IF RSADSTMT teen return: /- GOING To READ THIS VALUE 
IF RFADPARMS THEN 

do; /'•' READING A SUPP OUT IMF'S PARA MET EPS -/ 

IF (TOKEN <> 12) AN! (TOKEN <> e) THEM READPAR''3 = 

false; 

/’I' "^HIS MEANS this PARAMETER IS AN EXPRESSION TEAT 
MUST BE 

FVALUiTED. AFTER EVALUATION, READRAR^S V.’ILL BE SET 
TO TRUE. »:'•/ 

ELSE do; 

call assign$parms ; 

CALL exp^stack; 

RETURN : 

end; 

end; 

/- IF LOADING A FUNCTION VALUE, GO TO THE CASE STATEMENT 

>:</ 

IE (FOEM$FIELD(MP) AND ?FH) <> ^UNC^ENTRY THEN 
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ro; 

IF f (TY?Z<STAC'<( FT) ^ 08H^ /''I ( TYP?^ ST A CX ' FT ^ < 11PM 
OR 

( (TY??$STACK(?T) AND 40H ) = 40H) '^FFIJ CASE 0^ 

ARRAYS "V 

CALL GSMERATE( LITA) ; /* GOING TO LOAL A ^RT AIER -/ 
ELSE APT^ALLR = PRT AEDP. ( PT ) J /- GOING TO LOAD A 
CONSTANT 

end; 

DO C ASE (TYPE$STACXtPT ) AND 0EH); /- CRD V AFIA'^LE 

*/ 

CALL IOAE(LOW(PRTArrR(PT) ) ,HIC-H(?RTArrPMPT ^ ) ,LOI M 
/- OPD CONSTANT "V 

r /-2-/ ; /-3-/ ; /-4-/ /- t^ooiean constant -/ 

CALL LOADUril ,3YTEPTR(0) .NOP) ; /-5-V EO; /- 
INTEGER CONSTANT -/ 

CALL LOAEf LDII .EYTEPTRfC) , PI GH ( AEDP PTR ) ) ; 

IE TYPE$STACX( PT ) = SEE TEEN CALL GENERATE ( N EGI ) ; 

end; /-6-/ do; /« bcd constant -v 

CALL LCAr{LDIP ,EYTEPTR(0) , HI C5 ( ADERPTR ) ) ; 

IT TYPESSTACX(PT) = 86H TEEN CALL GENEPATE ( NEG3 ) ; 

end; /-?'V do; /" string constant =-v 
CALL generate(ldsi) ; 

TFMP3YTE = 3YTFPTR(0); /■-' LENGTH 0? STRING ■'' / 

DO PTRPTR = 0 TO TS^^?^YTE; 

CALL GENERATEfAPTRAELP + P'^RPTR); 
end; 

end; /* BOOLEAN VAFIAPLE -/ 

CALL LOAD ( LOW ( PRTADDR ) ) , E I GE ^ P? TADDR ( PT ) } ,LOE ) ; 

/«gj?/ IHTEGi^P VAFIA3LE ’*V 

CALL LOAD ( LOW ( PPTADDR (?T ) ) , H I GE ( PR TA DDF ^ FT ) ) .LCD I ) ; 
/^- real YARIARLS -V 

CALL L0AD(L0W(PPTADDR(PT) ) .EIGH( PRTADDRf PT ; ).L0D3); 
/* CHARACTER VARIABLE ’V 

CALL LCAE (LCW(?RTAEDR (?T ) ). PI GE ( ERTAEDR ' PT) ) .LOI ) ; 
end; /- OF CASE ’V 
END LOAD^VARi; 



^ j;? j;: i|c 5 ;: 5 ;: 5 ;: 5 *^ s;c 5 ;^ >;< s’: ;;s s;? :|c :;c 2 ;? >;s / 

/- ASSIGNiVARI - THIS PPOCEDURE GENERATES THE -V 
/❖ LNTSR^'.EriATE COEE TO LOAD TEE LEFT SUE OF -/ 

/- AN ASSIGNMENT STATEMENT ON TEE EXECUTION -/ 

A' STAGE AND STORES A RESULT AT TEAT LOCATION. '•'/ 



/ 2:? ;|; jjs 5;; 3;? s;? 5;: 3;t 3;t 2jc 2;: 2|i 2|: 2|t 2|c 2 ;j 2,»c 2;i 2;« 2;? 2;? 2|j 2;: 2‘,t 2;c 2;c 2;? 2;: 2;? 2;j 2;s 2;: 2;; 2;? 2‘,c i\i 2;c 2;? ;;s 2;^ 2|s 2;: 2;« / 

ASSIGN$VARI; ?POC(LS. STORE^TYPE) PUBLIC; 

DCL LS RYTE; LS IS THE LE^^T SIDE OF ASSMT STM? -/ 
DCL (A. B, STOREiTYPE) BYTE: /-' STORE$TYPE IMEICATES 
WFETH'^R 

TO DELETE OR LEAV? THE CURRENT VALUE AT THE TOP 0? TF^ 



STACK "V 

U (TYPE$STACX(LS ) AND 40H ) = 40E TEEN 

do; 
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TYP^^STACK (Ls) = (TY?2$STACK(LS ) AN L e?FH^; 

C»LL G^M?PATE(XCH5 J; 

end; 

ELSE CALL GEN $ AI rR( LI Ta . PP-Ti ABLR ) ) ; 

I? SrR(EO?.M$FIELD(LSK'?) ’I'EEN CHICS POP. VAR PARAMETER 

-/ 

CALL GENERATEfLODI ) ; 

EG CASE EXPRESS$S?S(S?) ; 

/'^ CASE 3 - ORE TYPE -/ 

IE r TYPE$STACK^LS) <> IIH) ANE ( TYPE^STACE f IS <> 13?) 

T^EM 

CALL EP.ROR( 'AT') ; 

ELSE A = 2; 

/* CASE 1 - INTEGER TYPE •'' / 

IE TYPEoSTACK(LS ) = 39H T^EN 
A = 1 * 

ELSE DC;’ 

IE TYPE^STACS (LS ) = 3AH TEEN 

rn; 

CALL GENERATE(CNAI ); 

A = 3; 

eme; 

ELSE CALL EPROR( 'AT' ) ; 

end; 

/- CASE 2 - CEAR$TYPE 
IF TY?E$STACS(LS ) = G3H THEN 
A = 2; 

ELSE CALL ERROR ('AT'); 

/’•' CASE 3 - REAL TYPE 'V 
IE TYPEiSTACS (IS ) = 3AH T^EN 
A = 0; 

ELSE CALL error ( 'AT' ) ; 

/^' CASE A - STRING TYPE 'V 
A = 2; 

/* CASE 5 - BOOLEAN TYPE -' / 

IE TYPE^STACK(LS ) = 35H THEN 
A = 2 * 

ELSE CALL ERRCR( 'AT' ) ; 
end; /- OF CASE -/ 

I? store$type then a = a +3; 

DO CASE a; 

p. = stdb; 

E = stdi; 

B = std; 

E = stob; 

3 = STOi; 

B = STO; 
end; OE CASE 
CALL GEMEHATE(E); 

END ASSIGNiVARi; 



■* "I' 'I' '!•* •X" 



5*^ SfC 5*5 



5,5 5,5 5',5 



/ 
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/- THIS PHOCSDURI C^HCKS THE TO? -/ 

/*:■ VAT5 TABLES ON THE EXECUTION STACK -V 
/- ECR PROPER TYPE. */ 

/ C EK $ ^ XPR ^ T Y P E ! PPOC 

■ 5 yt^ PU^ L I c j 

IE "(EX^RESSiSTKfSP) = SXPRES S $ STK ( P ) ) ANT 
EXPPESSiSTK(SP) 0 OH 

THEN RETURN TRUE; 

IP EXPRESS$STK(SP ) = IE TEEN 

do; 

IE EXPRESS iSTK(MP) = 3P THEN 
CO ? 

CALL GENERATE ( CNVI ) ; /- CONVERT INT TC PCI -■ / 

EXPRESS iSTK(SP) =3K ; 

RETURN true; 

t^nd; 

ELSE RETURN FALSE; 

end; 

I? EXPRESS$STK(SP) =3H THEM 

do; 

IE EXPRESS$STK(MP) = IE THEN 

do; 

CALL G?NERATE(CN2I ) ; /- CONVERT SECOND INT TC BCD -/ 
EXPRESS iSTK( UP) = 3F; 

RETURN true; 

end; 

ELSE RETURN EALSE; 

end; 

IE EXPRESS^STK (SP ) = OH THEN 

do; 

IE express$stk(u?) o oh then 

RETURN EALSE; 

ELSE do; 

IE BAS^$LOC(S?)=RASE$LOC(U.P) THEN 
RETURN true; 

end; 

end; 

RETURN false; 

END CHKiEXPR$TYPS; 



J ajs 5 ;? 5 ;: 515 5;c 5 ;: ’i?. J|: y.s 31? 5 ;? 3 ;: 3 ;^ 3’,: s;: 3)^ 3;c s;: s;c 3 ;^ 5 ;: 5 ;: 3;t 3;c 3;s 3|: 3 ;: s;? 5;c 5 ;? 

copy^stacks - this procedure duplicates t^e - 
- stack values stored at one pointer location- 

AT ANOTHER SPECIFIED POINTER LOCATION. - 

j:« 5;« 5); « Jlc if. ;;; ;|- j;? ;;j j;: ^ ;;; :;t s;s 5;s / 

CO?Y$ST\CKS: ??OC(A, B) PUBLIC; 

DCL (A, 3) t=YTE; 

TYPEiSTACK(A^ = TYPE^ STACK f B ) ; 

PRTiADDR(A) = ?PTiADDR(3); 

EXPRESSiSTK(A) = EXPRESS ^STK (^ ) ; 

FORU$FIELD(A) = FORUiFIELD (E ) ; 

B4.S^$L0C(O = 3ASEiL0C(3); 
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^ND COPY^ST^lCKS; 



/ j;c :;c ;;s s:t 5^ * s;: t\: :;r ;;; ;|c ;|s ;;c ;;; :;j ;;c ;;; ;;; ;;; :;c 

- GYNrPATE$3UILTiIN - THIS PHOCIDUPE - 

- C-ENEPATFS CODE FOP THE PUILT-IN - 
* FUNCTION. * 

ppoc ; 

APTRAIDR = PAPMNUMLOC (MP) - 2; 

IP (3vtePTP( 0) = lUH) CP (BYTFPTP(0) = 0F3E) TEEN 
CALL CO?Yi3TACKS(r^P, SP-l); 

ELSE EXPRESS $STK(MP) = EYTE?TR(0); 

/- GENERATE THE N^EYONIC COD^ ^OP THE 3IJILT IN ^UNCTION 

*/ 

APTPADER = APTRADD? - i; 

DC CASS PYTEPTR(0 ) ; 

CALL GFNSP.ATE(A3S ) ; 

CALL GENERATE ( SCR ) ; 

CALL GENERATE(SIN ) ; 

CALL GENEPJTE(COS ) 5 
CALL GENERATE 'ARCTN ) ; 

C4LL GEMSRATE(EXP) ; 

CALL GENERATE (LN ) ; 

CALL GENSRATE^SORT; ; 

CALL GENEPATE(CDD); 

CA LL GENERATE(EOLN) ; 

CALL GEMERATEfEXF) ; 

CALL C-ENERATE(TRUNC ) ; 

CALL GENERATE (^OUND ) ; 

CALL GSNERATEf CRL ) ; 

C«LL G”NE?ATE(CER); 

CALL GENSRATE(SUCC ) J 
CALL GENERATE'FRED) ; 
end; /- OF CASE -/ 

END GEN^^UILTAIN; 



^ ;;s :;s 5;: 5 ;c j;: 5;: 5 |c 5 ;i 5;: 5;: :;c ^ 

WRITEiSTRING - THIS PROCEDURE VRITFS -/ 

/-' A STRING TO TEE I NTERN'.ED . COLE 'V 

/ FR I TE $ S T ' I N G 

?ROC(NUf^^) public; 

DCL NUMS byte; 

CALL GT^NERATE( WRTS ) ; 

CALL GEN7PJVTF(NUN'B ) ; 

END F?ITE$STRINC ; 



y s;? 5,’i ilt s;: sic s;c :|c 5|c 5|c s;cj;c sjc ?;c s;c 5|c sic s|c s|c s|c 5|c sic s|c s;c 5|C S|cs;c 5|c s;c s|c s|? sic :;c S|C 5|C s;c s;c 5|C sic s': s|c / 

/- VRiTEiVARIAELE - THIS PROCEDURE V.'IIL ■- / 
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/- A VAR I Af IF Tf^ THE CONSOLE VIA -/ 

/- THE INTERf^FE. CODE. =V 

/ ;;s j;< s;s s!; si: ;;t s;; s|5 s;c v j;s y.: ;;c y,; 5 ;; j;: y,c y,s yc y; j;t y: ys y; ys / y p T ^ T ^ V _A. ; 

?H0C(NU^3) public; 

CCL NU'^3 byte; /'•' NTT|^3E? OE WpiTE PARiYS '-V 
IF K'OT REAEPAR^S THEN 

EC CASF EXPRESS$STK(MP ); 

/- ORE TYPE "V 
CALL GENERATE (VRT ) ; 

/❖ INTEGER TYPE */ 

CALL GENERATE(WRTI ) ; 

/❖ CHAR TYPE -/ 

CALL GENERATE ( VRTI ) ; 

REAL TYPE -/ 

CALL GENERATE (yp.TE ) ; 

/* STRING TYPE ’!•/ 

do; 

CALL 'a'RITE$STRING(NUN3) ; 

return; 

end; 

/- BOOLEAN TYPE -/ 

CALL GE.NSRATE(WRTI ) : 
end; /- CASE EXP?ESS$STE([OP ) "V 
CALL GENERATE(NUNB) ; 

END w^ite^var; 



y 5 |s 5 ;j iii 5 |: ?;c jIs 3;? s'? :|? s^? ?:? :t? s;? :[? ?;? ?:? 5;? s;? s;? s'.? s;? s;? s;? s;? sj? s;? si? s|? / 

/- PEAD$V,AFU3LE - THIS PROCEDURE GENERATES "/ 

/- THE INTERNELIATE CODE TO FEAD A VA?IA?LE=V 
/* EROI^ TEE CONSOLE. -/ 

PROC public; 

IE (TY?SiSTAC:<(S^) < 09E) OR ( TYPRi S TACX (' S P 1 > eiH'^ T^'EN 
CALL ERROR( 'IR' ) ; 

ELSE DO CASE ( TYPE$STACH (S P ) - 9); EO;/-CASE INTEGER-/ 
CALL GENERATE(RDVI ) : CALL GEN$ ADDR ( L I TA , PRTAI LR ( S F ) ) ; CALL 
GEN^RATE(STDI ); END; /-CASE INTEGER-/ DC;/-CASE BCE-R/ CALL 
GENERATE(i?DV5) ; CALL GENi ADD?. ( L I TA . PR TA DDR ( S? ) ) ; CALL 
GENERATE ^STIB ): END; /-CASE BCD-/ EO;/ECASE BYTE’o^ CALL 
GENERAT'P’(?DE) ; C ALL GEN$ ABDP ( L IT A , PRTADDR ( S ? ) ) : CALL 
GENERATE (STD); END; /-CASE BYTE-/ 

end: /- CASE (TYPEiSTACH'SP) - 9) -/ 

END ?t^AD^V,sr; 



/ s|? si? :;? s|? si? s*^ s;? s;? s,*? s;? s;? s;? s;? ;;? s;? :;? :;? s;? s;? s;? :;? s;? s;? s;? s;? s;? >i? s;? s;? si? s;? s;? s;? s;? s;? s;? ;;? s;? s;? s;? :;? s;? :;? s;? s;? 

- ■°$UPPOCEDURE - THIS PROCEDURE IS CALLED - 

- UPON recognition OE A BUILT-IN PROCEDURE - 
* STATE!/EMT. * 

;;s slJ s;: y.; i'fi 5|c ;;; :;£ y;;;;: j;: 5;s I'f :;c s,'s if s;s sjc ;;c ;(£ ;;; s); 5|£ s,': s? :|s V * sit ^ s|: s;: v 5|: sjJ s;: -r / 

I^P^nCEDIJP.E: PROC; 
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EASZ = 3ASIL0C(^P) ; 

CALL SI'!’ipAST$PM(7) ; 

17 EYTFPT?(0) < ?2 TEFN /- FILL HANDLIf'G PPCCIDUP-F 'V 
DO CASS (BYTEPTRO) - 17); 

CALL GS.MERA'^E(PUT) ; 

CALL GENSRATF(5ET ) ; 

CALL GENEPATE(RESET) ; 

CALL C-S.MERATE(REV;?.T ^ ; 

CALL G’^N ER ATE ( PAGE ) : 

CALL GENERATF(NEV. ) ; 

EML; /- OF CASE (EYTSPTR(0) - 17) -/ 

ELSE DC CASE (3Y'^EPTP(0) - ?2); /- VAPIABLE NUMBER 0? 
PARAMETERS -/ 

NE'A•ST^^T false: 

DISPOSE$STM'" = FALS^; 

BEADiSTMT = FALSE; 

READ < STMT = FALSE: 

WRITERS TMT = ?iLSF; 

do; 

VRITE^STMT = FALSE: 

CALL GENEPATE(DUMP ) ; 

end; 

end: /’•' OF CASE (EYTS?TR(0' - 22) */ 

END i^procedure; 



/ j;t 5;s s;; j;t s;: 5|S ^ 5|5 s;c :;s ;j; * j;s s;c ^'5 5;« 5 ;; ;;c ;;t s;j s;: :'.t ;;t j)! s;: * s:: 5‘^ 

^REAE$LTNKS - TpIS PROCEDURE REMOVES TE"^ '■= 

* SYMBOL TABLE LOCATIONS FROM TEE t^ASH TABL:^ - 

- FOR THOSE ILENTTFIERS TEAT V.'ERE LOCAL TO - 

* THE CURPE'IT SCCPE: AND THE SCOPE POINTER IS 

- DECRIMENTED 3Y ONE. - 

■f i'f sis Si's sis sic ;l5 ^s sis sjs >Is ;;c sis sis >Ic sis sis sis sis sic sis sis s;s sis sis sis s'f. sis sis sis sis 5;c sis sis sis :|s sjs s;s si: si: s.'s sis s;s sis si: sis / 

BRFAE^LINr'S: PROC; 

DO WHILE S^TELSCOPE > SCOPE (S COPEiN ^'M - 1); 

EASE = setelsccpe: 

CALL SETADDRPTP(4) ; 

IE ((?YTEPTR(0) and EORMMASE) = 7F) TRE.N 

do; 

CALL SETADDRPTR(2 ) ; 

SPTBLSCOPE, EASE = ADDPPTR; 

SN D : 

ELSE do; 

CALL SETADD??TR(5) ; 

SYMHASE = EYTE?TR{0); 

CALL SETADDPPTR(O) ; 

HASHTA3LE(SYMHASF) - ADDRPTR ; 

CALL SETADLRRTRf2h 
SBTBLSCOFE, BAS^ = ADDRPTP; 

end; 

E^D ; 

S'^TBLSCOPE = SCO?E( SCOPI^NU"^ - l); 

END BREAI-CUINKS ; 
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! 5|: * j): 5!?:;: ?;? i;s 5|: 5|i jlt :;c ;;c :;c s;: jji 5;c ;;c :!r ;;; 

* SCOP^iBRANCE - THIS PROCSTURE GENERATES THE - 

- INTEPKEDIATE CORE THAT PERN*IT3 "?A\!C'JING - 

- AROUND AMY COLE GENERATED FOR SUBROUTINES. - 

s:t ^ ^ : ;;j ;|t >;t ;;; ;;c s;; * j,: 5|{ s;! 5;; >;c ;|j s;; 5 |c s;; ;;o;: :;t -.;c j|; 

SCOPEiRRAMCF: PROC PUBLIC; 

IE SCOPS$NUM > 1 THEM 
Lo; 

APTRADD" = PAPArMUULoC + ?; 

CALL GEN$ALLR(ERL, (ALLRPTR+1 ) ) ; 

CALL C-i^Mi ALDR( L3L , ADDRPTR ) ; 

E ML ; 

END SCO^EiERANCE; 



! :|c >;c 5;s 5;^ s;: s;: j;: j;: 5;: 5;: 5j: 5;: Jlc i;: j;: j;: :!? j;c S’.J j;: :;c 5;: 5;: j;c 5;: il: >;r ;’.c j;: 5 ;s 5 ;{ 

- LAPEL<|YAKER - THIS PROCEDURE ENTERS ALL - 

- LABELS IN THE SYMBOL $T ABLE . - 

>:« -if. 5;: if. if if if if if if if ^ : i|,' j'.j :;c :;c :;s s;s :;r :;c ;;c if if if if if s;c 5 ;: if if if 

LAREL^MAKER: PROC PUBLIC: 

I-p '^yPEMUM = INTEOERiTYPE THEM 

LO; * ^ ‘ 

CALL EM TER $ Y AP i I L ( 0 , S P , LAE L ^ ENTRY ' ; 

C«LL ^MTER$LA3EL; 

end; 

END LAPEL ^MAKER; 



^ ;|t :|c >;? j): 5 ;: i): 5|: i,': 5 ;; 5 ;; i;c 5 ;; i|: 5;j siJ sli 5 ;: 5‘.: i;c 5',: 

« USER^TYPE - this PROCEDURE PERMITS THE 
PLA^'EMENT 0? USER DEFINED TYPES IN THE =•= 

* SYMBOL TAPLE. - 

3;: 5;: if j |! if if s); if s;s if jjs :;c ;|s if j;s ;{j ;|s * if s;s if s’,; :;t if j',: ;|s ;!« j’.; 5 ;-. if s): 3;.' 3;: 3;; 3;: 3;; 3;: 

USER$TYP: PROC (A) PUBLIC; 

LCD A byte; 
ty?e$loct=sbtbl; 

IE LOOKUP^OMLY(SP) THEM 
CALL ERROR ( 'DT') ; 

CALL EMTER^yARiir(0,SP,TYPEiLCLE^ ; 

IE NOT PRESENT THEM 

Lo; 

CALL IIMITS(U^; 

aptr.adlp=s3tbl; 

?yte?tr(3)=a; 

APTRALLR=APTRArLR+l ; 

ADLPPTP.=PAPEr]^$TY?E; 

S3TBL=SBTEL+3; 

eml; 

EMD USEPSTYP; 
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IfOOIl 

IMMMI 

lOOIl 







! :;c 5;: y.c :*,c >;c >;c 5;: :|: 5;^ ;;c i|c I'.c :|c 5;: ;;c i;r j;j 5;? j;r 5 *,: j;c 

COUNTiPARA$£YTsS - T51S PPOCERUHI 13 USSE TO - * EETEPMMS 
TEE NUK 3 EP 0 ^ BYTES ASSOCIATEE YITH - - THE PA-AKFTEPS A 
SITBROUTINE CALL. THIS * - INFORMATION IS NECESSARY To ALLOii 
PARAMETER * * MAPPING FROM THE EXECUTION STACK INTO TEE PRT 
■“Y TrF SAVP OPERATION. * 

i:. j|; :;r ?;r S|f 5;,' :*,c :|j :;c :;j 5;? >;c j;c j): 5 *c s'.i ;;c :;c ?;c 5 ;c >;c 5;? 5 ;j 5 !: 5;^ 3;? ;;c 5;: ?;c 3 ;c 5;? ::c 5 ’: / 

COUNT$PARA KBYTES : P^OC ( NUM$OF$FAHAS ) AEER; 

DCL T^MPVAL ADLR, 

(NUMiOFiPARAS,!) BYTE; 

TE^^?VAL=0; 

DO 1=1 TO NUMiOF$?APiS; 

CALL SFT$PASTi?M(S) J 
APTRArr?=ADrR?TR + (d-D-3); 

IF BYTEPTR{o )=0-F then allc$cty=?; 

ELSE 

IF BYTEPTR(0)=1BE THEM 

allc$cty=8; 

else 

allc^oty=i ; 

tt’mp^m l=tempval + allc$oty; 
end; 

RETURN TE'^PVAL; 

YND C0UNT$FARA?3YTES; 



! i|r iji :|s 3;? ;|s 5;^ jji 3 *^ 3;: 3 |: 3 ;c 3 ;j ;;s :;c :;c :;c sjc 5;: ;;c 2;: s;: ;;c :;s ;;c 2 ;c j;r 3 ;i 

- GENiFCNAHDRAsiZE - THIS PROCEDURE IS USED TO - 

- DETERMINE THE NU^-BER OF BYTES ALLOCATED IN - 
* TH"^ PRT FOR A FUNCTION NAME. - 

5 |c i\i ;;c 5 |r 2;: 2;? sjc 2;: 2;; >;< 2*,: 2)c 2;^ 3 ;i 2;< 2:? 2:: 2;: 2;: 2;: 2;t 2;c 2;s 2;c 2;: 2;c 2;< 2;i 2;: 2;; 2;^ 2:' 2;: 2:t 2;: 2;i 2;? 2:: 2,r 2;.' 2;? 2;: 2 ;j 2;c / 

GEN$FCfd?DRiSIZE: PROC ADDR; CALL SET^PAST^ PN ( 16d I? 
BYTFPTR(0) = 0BH THEN 
return 02H; ELSE 
IF BYTSPTRd) = IBH THEN 
Rt^TURN 03R: 

ELSE 

RETURN 01 H; 

END gen^fcn^hdr$3ize; 



/ 2;: 2;c 5;: 5;^ 21 ? 2;: 2',c :;c 2*,c 2’,: :;c 2;^ 2;c 2;c 2;: 2;c ;;c 2;: 2;c 2;: 2;i 2;: 2;c 2;: 2;; 2;; 2;: 2;? 2*.? 2;< 2;c 2;: 2;: 2;; 2;: 2;j 2 ;j 2;^ 2;: 2;^ 2;-. 2;^ 2;^ 2;: 2;; 2,: 

PRO^FCN$BYTES IZF - THIS PROCEDURE RETURNS THE - NUM.BEP OF 
BYTES ALLOCATED IN T-E PRT FOR A PRO- - - CSIURE OR FUNCTION 
DECLARATION. THIS DATA IS - - RECUIRED TO ALLO'-' RARif^FT^R 
MAPPING INTO THE PRT- - BY A SAVP OPFRATOP. - 

2 ;c 2 ti 2',5 2;: 2 ;c 2:^ 2;^ 2 ;j ::c 2;? 2 ',i 2;? 2;? 2 ;t 2;? 2 ;c 2’.: 2;? 2 ;« 2 ;c 2 ;x 2;^ 2;: 2 ;c 2 ;i 2:? 2;? 2;? 2;: 2;; 2 ;c 2 |c 2;: :;c 2:^ 2;: 2;? 2;^ 2;^ :;x 2 ;c 2;: 2;: 2;: 2;: 2 |c 2 ;c / 

P?Oi^CN$BYTFS IZF: FROG ADDR; CALL SrTADDR?TR( A ) ; IF 
3 YTF?T^( 3 ) = 2 AH THEN 
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?E?U^N 32^; FLSI 
RETURN CEMiFCN$HI?$SI7E; 
ENT P^Oi^CN$BYTISIZF; 



/ 5li 51? s;i J'.i sic 5;t s;t 5|: :;c 5 ;.- ;|t >;c :;t ;;c 5 ^ :|c :;c ;;j 5): ::c :;c ;;c 5): 5;c :;c ;;c j;t sjr ?;s 

- SETSAVZSBLOCK - THIS PROCEPUE^ IS " 

- CALLED UPON DETERMINATION OF A SUF^OUTINE - 

* BLOCK. IT IMCHIMENTS THE PRT BY ONE LOCA- - 
TION TO PET^MIT THE INSERTION OF Tpt' SBP== - 

- AMD TFIS allows FOR RECURSIVE CALLS. - 

❖ 5|S K' J.'S ■'fi'fi * j;:* ❖ :'r 2 ’.: 2;j !;« 2 ;: sis 2 |: :;c :'f s|s i'f ,'|; !;:i^ s;s ;;; s|; j;,- ;|c j;: j’,: s;; s;c j;c j;: ;;c s;: ;;; / 

SETSAVE$^L0CK : PROC PUBLIC? 

DCL BYTE^COUNTEH ADDR , 

COUNT BYTE? 

PYTEiCnUNTER=0? 

LAST$SETFL$ir = SB'T’PL? 

IF SCOPEiNUM > 1 THEN 
DO? 

EASE = PARvnUMLOC(S? - 5)? 

CALL SET$PA3T$PN(12)? 

ADIPPTR = ALLOC UDDR? /- SEP -/ 

ALLOC^ADDR = AILOC^AD'ER * 2? 

CALL SETS?ASTiPN(7) ; 

TFMFADCR = BITFPTR(E) AND 3FFH? 

CALL C-ENiAILRfLDII .TEMPADER)? 

CALL G^N^ADEF.UDII , PROSECN $ BYTES I 7E ) ; 
BYTFiCOTjNTER=COUNTiPARA$BYTES (COUNT ) ? 

CALL CENiAELRaril .EY'^E^COUNTEP) ? 

CALL SETiPAST^PNdU)? 

CALL GEN^ALERfLlTA .ADCRPTR) ? 

CALL SETiPAST^PN( 12) ? 

CALL Ct^N$ADDR(LITA,ADERPTR) ; 

CALL GENERATE(SAVP) ? 

END? 

END SETSAVF^BLOCK? 



/ i\i j;? 5;« 5|i s;? 5 ;= Jlc 5lc s;: :|c 'A' 5 ;^ 'A- -.S 5 ;^ i|c A' ?;s ?*.? j;: A' 5|' ^ 5!' -r '1^ 

- H^ad$AND$BLOCK - UPON RECOGNITION OF A - 

- SUBROUTINE'S READING AND BLOCK, THIS - 

* PROCEDURE IS CAT LED TO OEfPRATE RECUIREI - 

- CODE FOR UMSAVINC- TEE SUBROUTINE'S 7 

- PARAMETERS IN THE EVENT OF RECURSIVE CALLS.- 

5|s slJ 5|; :|{ ;|s y,; s); if :;t :;j 5|; j;-. s;c :>fi y,< :\i i|{ ;|t ;|« s): ;■,! s’,: :|t 5|;s;j s’.; i\t >|: si; >|c 5|t j); s'.; s'.? 5|c / 

HFADiN^BL^: PROC PUBLIC? 

BASE = PARMNUMLOC(MP) ? 

CALL SET^PAST^PN d2) ? 

CALL GEN$ADDR(LTTA,ADDRPTR ) ? 

CALL SET^PAST$PN( 13) ? 

CALL GFN$ADDR(LTTA ,ADLRPTR) ? 

CALL GVNERATE(UNSP)? 
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CUL B?ri.K$LIN5S; 

BASE = PAR^^NU^;LOC (MP) ; 

sccpz^rJir-=scoPE$Nu^-i ; 

C»LL C-F‘'JFRA TE( PTN ) ; 

C»LI SET$?AST$PM(14) J 

CALL GEM$ADrR(LBL, (ALLP-PTR+l ) ) : 

T^r^PArDE = 0 ch; 

CALL GEN^AEDR(Lri I ,TEKPADDP ) J 
CALL SET$PAST$PMf 12) ; 

C^LL GE?J$ADDF(LTTA .ADDEPTR) : 
CALL GENEVA TE ( S Tn ) ? 

END feal^n^blk; 



! 5|5 ;;j j;« « 5is :;s >;« s;t ;;t s;; s;s >;< s;: s.t :;s s;: :;s j;t 5 ;: 5? s;s V s;t ;;s ;;; 5|5 i?. 5 ;; si! si! sit s;: ;)! si: si! 5 ;: si! s;: Si: si! 5 ;: 5 ;: >i! 

* EORVARD^STIBROUTINE - IN TEE EVENT P? A - 

* EORVARD DEEINED SU3FCUTINE, THE ALLCCATED - 

* SPACES IN THE P^T FOR T^E ROUTINE AND ITS 

- ASSOCIATED PARAMETERS ARE DF-ALLOCATEI AN! - 
WILL BE REALLCCA'I’ED AT THE POIN'^ OF TH^ - 

- SUBROUTIME'S DEFINITION. 

5,'t sic si! s|< si: sf: sic s|c !,■! sic s): sic sic sic sic sit if if sic sic sic sic sic sic sic sic sic sic sic sic sic sic sic sic sic sic sic sic sic sic sic sic sic sic sic sic / 

EWD^SUBRTN: P^OC PUBLIC; 

SCOPE^NUM = SCOPE^NUM - i; 

APTRADDR = PARA^NUMLOC + 3; 

ALLOC5ADD? = ADDFPT?; 

FND FWLiSUBRTN; 



! >;c :;x 5;: >;< 5;: 5;: s;< >;c 5 ): sjc j;: i;< j;? 5;: s;: 5 '^ 5 ;c ;;c ;;i j;: ;;; ;;c s;: 5;: 

- GOTiPARAMETERS - THIS PROCEr”FE IS CALLED - 

- CNCF ALL A SUBPOU'^INS'S PaRAMETFFS HAVE - 
BEEN RECOGNIZED ANL ENTERED IN TFE SYMBOL - 

- TABLE. THE NUMBER OF p‘RAMETRRS AN! THEIR * 

* ASSOCIATED TYPE ARE TE^N STORED IN THE - 

* SYMBOL TABLE. - 

sic sic sic sic sic sic sic sic sic sic sicsit sic sic sic sic sic sic sic sic sic sic sic sic sic sic sic sic sic s|c sic sic sic sic sic sic sic sS sic sic sic sic sic sic sic sic si: sic / 

GQT^PAPAMS: PPCC PUBLIC; 

APTPADDP = PARAMNUMLOC; 

BYTRPTR(O) = PARAMNUM; 

CALL ENTRiPRMiTYP; 

END GOTiPARAM?; 



/ sic sic si: sj: sic si: si: if if if if sic sic v ^c sic sic sic sic if if if if sic sic s;c s;c sic sic sic sic sic sic sic s;c sic sic sic s;c sic s;c sic s;c sic sic s;c s|c :;c 

sic sSTiOPATYPE - this PROCEDURE IS CALLED TO 
LOAD TEE type OR OPERATOR USED IN AN EX- - 
- PRESS ION. - 

:;t 5|j s); 5 ;? 5;^ >;« y,: 5|c 5 ',: :’,s 5)^ 5‘,c jjc 5l< i!: sjc 2 !^ u' 5): j’.c i[t / 

SiTT^OPiTYRE: PROC(A) PUBLIC; 

DCL A byte; 
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TYPZiSTACKff^P) =A J 
END SET^OP$ TY? E ; 



- CALL^ASPROCEIIjEE - THIS PROCEEURE IS CALLEI - 

- TO GENERATE INTERMEPIATE COPE UPCM 
INVOKING A SU5R0UTINE. THE NUi^PER OR 

- paravrters recuirep is also CT^ECKEP. - 

5): ;;c 5 ;^ i\i ;;; :;c 5 ;? :;c ;;c :;c 5 ;: 5;c j;c 5;s :;c ;;; J|c :;c s;c / 

CALLUiPROC: P^OC(A) PUBLIC; 

rCL A byte; /- true or false ■''/ 

RT^i.DPAPMS = false; 

IF A THEN /- THE SU'PROUTINE FAS PARi^ETEPS -/ 

po; 

IF PARYNUY’(MP) 0 ?AR^MUM(5?-1 ) TEEN 
CALL ERROR{"PN'); 

end; 

IF SER{EOH^^$EIELD{^:?) ,3) THEN 

do; 

IE FORv$FIZLD'’YP) = 0DE THEN 
CALL GEN iRUILT^IN ; 

ELSE CALL B ? I ^PROCEDURE ; 

end; 

ELSE do; 

IE FORM^FIELD(YP) = FUNCiEN'^RY THEN 
CALL LOAD$VARI (vp) ; 

ELSE do; 

CALL GFN$ADDP(PRO,LABELSTACK(r^.P ^ ) ; 

CALL C-SNERATE(DSL) ; 

end; 

end; 

END CALLiASPROC; 



^ 3!< 5|C 5ls i\z s;? s;? 3,‘c s:c 5|? 3 ;; 5;c i;c ?:? 3 ;? ^,z ;;t s;? 5 ;? 3 ;^ sir 3 ;: si? sic 3 ;: s;c sic 3|s sic sic 3;c sic s.c sic 5lc sic 5lc sic sic :;c 

❖ GOT$FUNCTION$TYPE - THIS PROCEEURS ENTERS * 

❖ the type OF THE FUNCTION INTO THE SYf^BOL - 
TABLE AND ALLOCATES A POSITION IN THE PPT - 

- FOR T^^E FUNCTION VALUE TO EE STORED IN. - 

❖ -.i ❖ ^ * 'Ai >!< A- >:« * 5i« -f a< 5|< v ❖ s? a< ❖ * ❖ « a: jI'- ❖ 5 ;= / 

GOTiFUNC^TYPE : PROC PUBLIC,* 

EASE=PAR.‘^NUYLOC^r?) ; 

CALL SET$PAST$PN(16) ; 

BYTEPTP.(3) = SHL(AL0CBASICTYP,3) OB VAR^ENTRY; 

CALL SST$?ASTiPM(ie) ; 

ALLOC$ADDR = ADDRPTr; 

ALLOCiADDR = ALLOC^ADDR + ALLC^OTY; 

END GOT$FUNCiTYPE; 
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/ >;t ^ s’.s ;;c 5 ;t ;;c 5;: >,« ;;? :;c y,? s;s s;? 5;? s;« s;c >;5 sjc ?;x ;;c i;t j;; ;;; 5;^ i;c 5;: s;c 

’■••' SNr$PROGRAM - THIS PROCEDRS IS CALLEE UPON - 

- RECOGNITION 0? THE END OF A PRCGR4K. IT - 

- PRINTS OUT THE ERROR COUNT, CLOSES THE 

* INTERMEDIATE HLE, WRITES THE SYMBOL TAPIE - 

* FILE, AMD INFORMS THE PROGRAMMER OF PROGRAM- 

* COMPILATION. 

jJ: >i: 5 ;: s.'j 5|s * 5|5 sjs ^ ^ jJ; ;|c sjs « :1s 3‘,s * :;e sj: s); :;s * sjs sjc s',: i\: .•;« jjj 5 ',; sit sj: sis s;t sis sis sis sis s|s y 

END$PP.OGP.AM: PROC PUBLIC; 

CALL ppintaerror; 

CALL PRIMTCHARi ' '); 

CALL crlf; 

IF NOT (FRRORCOUNT > 0) THEN 

do; 

CALL GEM$ADDR( ALL,ALLOC$ADDR ); 

CALL GENERATE(ENDP) ; 

end; 

CALL writ$int$file; 

CALL moveasptbl; 

CALL close$int^eil; 

CALL PFINT(.(' compilation COMPLETE. $ ')); 

CALL M0N3; 

END end^program; 



^ ^ >?c ?;s sjs 2‘.s 2 |c :;r s;s j;? :;c Jls :;c s;r :;r i;c 5;c 

* ARRAY^DECLARS - THIS PROCEDURE DETERMINES - 
- AND STORES SYM3CLTA3LE INFO ON 4RRAYS. - 

* THIS PROCEDURE FAILS TO MAKE USE 07 THE 

* PARALLEL PARSE STACKS. - 

« sjs sit >? sit sis sit sit sit s;t sit sit sit s,t s;t si; sis sit s;s sis sit sis si; si; si; si; sit sit s’^ si; sit sit s;t sit sis sis sit sit sit si; si; sit sis si; sis s.; si; sit y' 

ARAY^DECLAPE: PROC PUBLIC; 

DCL I EYTEt 

IF ARPY$PTR = -1 THEN ARRY$PTR=0; 

CALL EN'TR^CPLX$TYP(17H); 

ARY $ D'l^ < ADR $P TR=AP Y i DM^ AD R A P TR-N UM $ ARRY $ D I M ( ARR Y $ PTR ) ; 

arry$3asf=base; 

CALL LIMITS( ( NUMlA RP/fi DI M ( ARPY $PTP ) -4 ) +S ) ; 

CALL SETADDR?TP(5); /-NUMBER OF DIMEsNSI ONS-/ 
3YTEPTR(0)=NUM.$ARRY$DIM( APPY^PTR) ; 

CALL SFTADDRPTR(e) ; /-ADDRESS OF COMPONENT TYPE*/ 

addr$ptr=type$loct; 

CALL ALLC$0EFSE'^(TY?E5L0CT) ; 

base=arry$easf; 

CALL SETADDRPTRO); /-total storage RECUIPSr-/ 
ADDRPT?=ARRY^CTY( ARRY$PTR )-allC$CTY; 

CALL SETADDRPTP. (12) ; /-COMPONENT TYPS'V 
BYTEPTR (0)=ALOCBASICTYP; 

^ s;: ijs 5): :;c 5 ;: 5 ;: ;;; ?;c ?;c ‘/.t :;c i\i 

THE FOLLOWING CODE CALCULATES TEE OFFSET AMD DIS- 
PLACEMENT VECTORS FOR EACH ARRAY DECLAPATION AS 
FOLLOWS: 
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WEERZ N = c DI.YZNSIO‘IS IN THIS AF-A.Y, 

r(I) = BISPLACZI^EN’i VFCTHR 7QR ITH A’^RaY 
U(I) = UPPER BOUND C? ITE ARRAY 
L(I) = LOVER BOUND OP IT'I ARRAY 
V = OFFSET FOR THIS ARRAY 

FOR I = N DOWN TO 1 

IF I = N THEN D(I) = 1 FUSE 

D(I) = (U(I+l)-L(I+l))-Da-l) 

V = V - CKD’i'Dd)) 

5 ;j >;€ y,? 5;? 5;? 5 ;c s;c ;;c 5 ,c j;? y,? 5;? j;? >;c ^ 5;: 2;: 2;s >;? 25c :;c 2;^ 2;: 2;: 2;: 2',t 2:; 2;: 2;: 2;? 2;^ 2;? 2;? 2;: 2;? 2;; 2;; 2:2 2;: 2;^ 2;: 2^i 2;c 

ARRY$OFFSFT = 0; /*INIT FOR ZER0-ORIC-IN -V 
SUBR$FORM = NU^’$ARRY^DI^;(APRY$PTR); 
DlSP^VFC(SUBRiFORiY) = i; 

ARRY$OFFSET = 

ARRY$OFFSET - 

(ARRY$DIMiLOV/VAL(ARY$DIYiADR^.PTR ^ SURRiFORiY) - 
nSP$VEC(SUER^FOR'") ) : 

SUBR$FORr" = SUBR$F0R1Y - It 
DO VHILE SUBRiFORN! > 0; 
riSP$VEC(SUER$FORM) = 

(ARRY$DIN'iHIVAL( ARY$D^!$ADR$P?R + SUBR^FOR^ -1 ) 
ARKY$DIt^$LOWyAL(ARY$DU‘$ADR^?TR + SUBFSFORU *1 

+ 1 ) 

DIS?^VEG(SUBR$FCRM +1); 

ARFY$OFFSST = 

ARRY$OFFSET 

(ARHY$DIY$LOWVAL(ARY$DY$ADRiFTR + SUERSFGR^) 
DISF$VEC(SUBR$FORM) ) ; 

SUERiFORK = SUER$FCR^’ - i: 

end; /-do vhile-/ 

CALL SETADERPTPdl ) ; /-OFFSET-/ 

ALDRPTR = ARRYSOFFSET - ALLCdTY; 

CALL SETADDRPTR( 13) ; /-ADDRESS OF DIMENSION 1-/ 

DO 1=1 TO NUMiARRY$DIM(ARRYiPTR) ; 

ADDRPTR = ARRY$riMFN (AP/dDr<ADR$?TR +1): 

APTRADDR = APTP.ADDR + 2,* /-DISP 7ECTC? ^OE THIS 

DIMEN-/ 

ADDRPTR = DISP$VEC(I) - ALLC$0TY; 

APTRADDR = APTRADD? + 2; /-SET-UP FOR N^XT DIM-/ 

end; 

ty^e$loct=ease; 

3BT3L=SBTBL+( ( N UM$ AERY$D IM ( ARE YiPTR )-4) +3 ) ; 
ARRY$PTR=ARRY?PTR-1 ; 

END aray$declare; 



^ 21c 2;< 2|: 2jc 2;: 2;? 2;: 2;: 2|c 2;: 2;^ 2|j 2i: 2;^ 2;: 2ii 2;: 2;c 2|i 2;s 2;? :;c 2;t 2is 2;« 2;c 2;j 2;; 2;: 2ir 2;r 2;c 2;; 2;? 2;? 2.? 2;? 2;: 2;: 2;: 2;: 2;: 2;; 2;^ :;s 

- FINLSRELOP - THIS PROCErUHS DETERMINES - 

- WHAT MNEUMONIC SHOULD BE C^flEPATED FOR ANY - 

- relational OPERATOR. - 

sit};: ;;s s;-. s;c s;s 5 ;.' if ;;s if sic 5,’s i^i sit;;: ;;; j;; ;;s >f :;c * / 



IS? 



public; 

ro CASE (TYPS^STACKf^’FFl )-S) ; 

A = ECLi; 

A = NEOi; 

A = LEOi; 

A = GECi; 

A = LSSi; 

A = GRTi; 

IF EXPRESS?STR(SP) <> ORD$TYPE TEEN CALL FRROR('CE'); 
ELSE A = XIN; 

end; CASS (TY?SiSTACK(iYFPl )-S) ■- / 

DC CASE EXPFESS$STK(SP) ; 

/’- ORD TYPE -/ 

IF fA = LSSI) CR (A = C-RTI) THEM CALL EP^OR('CS'); 
ELSE IF A <> XIN THEN A = A + 19; 

INTEGER TYPE -/ 

; NO OFFSET RECUIREL -/ 

/■'' CHAR TYPE -/ 

; /- NO OFFSET RECUIRED 
/* REAL TYPE "V 
A = A + 7; 

/- STRING TYPE ’V 
A = A + 13; 

/- BOOLEAN TYPE */ 

; NO OFFSET REQUIRED 
END*. /- OF CASE EXPRES S $ STX ( S ? ) -/ 

CALL GEN^RATE(A); 

EX?PES3iST^(h?) = BOOLEANiTYPE; 

END FINDiRSLOP; 



END SYNTHi; 



SY-^TH2 .SPC 



iPACEWir':’E(80 ) TITLE( 'SYNTE2 - PRCEUCTICN CAS? ST AT? '"?N TS ' ) 



SYNTH2: DO; 

CECLAR? LIT LITERALLY 'LITERALLY', EXT LIT 'EXTERNAL', 

LCL LIT 'DECLARE' , 

PCS LIT '0', 

NEC LIT '1', 

PPOC LIT 'PROCEDURE', 

TRUE LIT '1 ', 

ADDR LIT 'ADDRESS', 

TALSE LIT '0', 

FORE^'ER LIT 'WHILE TRUE', 

STATESIZE LIT 'ADDRESS', 

BUILT$IN$?R0C LIT '0CH', 

CONS$STH^TTPE LIT '3', 

CONS$fJUM^TY?E LIT '0', 

CONS$IDENT$TYPE LIT 'l', 

CONS$SIDEMT$TYPE LIT '2'; ICL 

IDENTSIZE LIT '32', /- KAZ IDFN'^IFISR SIZE - 1 "V 
VARCSIZE LIT '130',/- SIZE OF VAPC STACK-/ 
PSTACKSI2E LIT '48', /- SIZE OF PARSE STACKS -V 
HASHT3LSIZE LIT '128',/- SIZE OF HASETABLF 'r/ 
RCDSIZE LIT 'S', BYTES USEE FOR BCD VALUES -/ 
N*AXSNEST lit '3'j /- MAXLEVEL OF NESTS FOR TYPES -/ 
ARRY^NEST LIT '4 , /- MAX NESTING LEVEL FOP. ARRAYS 

*/ 

"^AX$ARRY$LIM LIT '5', /-' '^AX ARRY IIMENSICMS 

/- FORM ENTRIES -V 

LABLiENTRY LIT '0', 

CONS$ENTRY LIT 'l', 

TYPEiENTRY LIT '2', 

VAR^ENTRY LIT '3', 

PROC$ENTRY LIT '4', 

EUNCiENTRY LIT '3' , 

FILEiENTRY LIT '6', 

TYPE^DCLE LIT '7' , 

/- NUMBER TYPES 

ORD$TYPE LIT '0', 

INTEGER$TYPE LIT 'l ' , 

UNSIGN$EXP0N LIT '3', 

STRING$TYPE LIT '4', 

BOOLEAN$TYPE LIT '5 ' I 



/- m;ANY of the following variables can be REPLACED BY NAK 
USE OF THE PARALLEL PARSE STACKS -V 
DCL NUM.iARRY$FLM.TS(25) ADDR , ARRY^D IM.$LCWVAL ( 25 ) ADDR 
PUBLIC, ARRY$DIM.iHIVAL(25) ADDR PUBLIC, TEMP^BASE ADDR, 
EXP$CTR BYTE, EXP$CTR1 BYTE, DISP$VEC(2L) ALLR PUBLIC, 
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h- 1 



APHY$0FFS2'^ ADDR PUBLIC, 

SIGNTYPE BYTE EXT, 

VECFTR BYTE EXT, 

TYPENUM BYTE EXT, 

CONST$PTR BYTE EXT, 

STARTEBOS Arr?,/'"ArER OF PTR TO TO? OF BIOS-/ 
TYPESADDR ADE'R EXT, 

TYPE$LOCT ADDR EXT, 

VAR$PTR BYTE EXT, 

?AR$PARM$PTR BYTE EXT, 

ALOCBA3ICTYP BYTE EXT, 

ARRY^OTY (^!AX$ARRY$ri^) ABBR EXT, 

VAP4BASE(10) ADDR EXT, 

ALLC$0TY ABB^ EXT, 

TYPE$0RBSNUM BYTE EXT, 

P AREN T$ TYPE ADBR EXT, 

CONST$INBX BYTE EXT, 

IOOKUP$ABBR ABBR EXT, 

CONST$PN$PTR BYTE EXT, 

ARRYiPTR BYTE EXT, 

ARRY$BIMiPTR BYTE EXT, 

PTRPTR BYTE EXT, 

TAG$FB(MAX$f^EST) BYTE EXT, 

var$cas$tp(p:ax$nsst) abdr ext, 

VAP$CAS$VAL(f^AX$NEST ) ABB? EXT, 

REC^NST BYTE EXT, 

RECORB$PTR BYTE EXT, 

REC5ADDR(10) ADBR EXT, 

REC$PARiADP. (^'AXSNEST ) ABDR EXT, 
VARIANT$PART(MAXiNSST) BYTE EXT, 
?XD$OFST$BS~(MAX$NEST) ADBR EXT, 
VAP$OFST$BSE(MAXiN£ST) ADDR EXT. 
CUR$0EST(P1AX$MEST ) ABDR EXT, 
NUy:$ARRY$DII^(r^AX$ARRY$DII^) BYTE EXT, 
ARRY$DIMEN (25) ADDR EXT, 

ARY$Dr$ADR$PTR BYTE EXT, 



/- CASE STATEMENT VARIABLES -V 

CASE$STK(12) BYTE EXT,/- NUMBER OE STMTS IN CURFENT 

CASE */ 

CASE$COUNT BYTE EXT: /- LEVEL CASE ST'^TS -/ 

/- GLOBAL VARIABLES -' / DCL 3CDNTJM (BCDSIZS ) BYTE EXT, 
SCO?E(10) ABBR EXT, 

SCOPE$NUM BYTE EXT, 

TEMPBYTE BYTE EXT, 

RR.OBUCTION BYTE EXT, 

ppviSBT G entry ader ext; 

/=:• COMPILER TOGGLES "V BCL 

list$prod byte ext, 

DIBUG^LN BYTE EXT, 

/-' COUNTERS -/ 
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LArLCOUNT ni3 2XT,/* COUNTS NU'^EEE OF I ‘EELS 

/=:= ELAC-S USED DU? INC- CODE GENE? AT ION -/ 

CASE$SThT EYTE EXT./* IN’ CASE STATirENT */ 
\vFITE$STMT byte ext,/* in v;HITE STATEMENT */ 
?.EAD$STKT BYTE EXT,/* IN ^EAD STa'^EUENT */ 

N^iviSTMT EYTE EXT,/'*' GETS MEW PECOF-D "'/ 

DIS?OSE$ST^"T BYTE EXT,/- DISPOSES OF PECCPD */ 
VA-PAFIY BYTE EXT, /* FORKAL PAPAK IS VABIABLE 

TYPE*/ 

READPARN'S BYTE EXT, /* READING ACTUAL PARAMETERS */ 
PRESENT BYTE EXT, /* IDENTIFIED IS IN SYMBOL TAdLE 

* / 

SIGM$FLAG PYTS EXT, /* SET VEEN SIGN PRECEIDs II */ 



/« 

-/ 



GLOBAL variables USED BY T^E SCANNER -/ 

CONT BYTE EXT,/* INDICATES FULL A C CU'' --S T 1 1 L ^TBE 

ACCUM.(IDENTSIZE) BYTE EXT,/* MOLDS CUPPFNT ^OKFN 



/ 



/* GLOBAL VARIABLES USED IN SYMBOL TABLE OPERATIONS -/ 
BUILT5IN$TVL(10) byte ext, 

BASD ADDR ext,/* base LOCATION OF ENTRY */ 

SBTPL ADLR EXT,/* CURRENT TOR OF SYMBOL TABLE */ 

A RTF ADD? ALL? EXT,/* UTILITY Vad.IAPlS TC ACCESS 

S^TBL */ 

AEIRRTR BASEL AFTRADDR AILR,/* CURRENT 2 BYTES 
POINTED AT - / 

BYTEPTR BASED AFTRADDR BYST,/* CURRENT dYTE PCINTEL 

AT */ 



-/ 



RFINTNAME ADDR EXT:/* SET PRIOR TO LOCiU? OR ENTER 



/* PARSER VARIABLES */ 

DCL 

PADM^•UM (PSTaCKS IZE ) BYTE EXT, /* MAINTAINS qE 

PARAMETERS ASSOCIATED VItE A SUBROUTINE */ 

LABDLSTACXCRSTACXSIZE) ADDR ^XT./* TPAC/IS STATEMENT 
LABELS -/ 

PARMNUMLCC(PSTAC'<SIZE) ADDR EXT,/* MAINTAINS i'-E 
LOCATION IN SYMBOL TBL WHERE P ARAMETER IN EC STORED */ 

BASEiLOC(PSTACESIZE) ADDR EXT, /* STORES SYMBOL 

TABLE ADDRESS OF TP.E PERTINENT ENTRY */ 

?0RM.$7IELD(PSTACXSI ZE) BYTE EXT,/* STORES TEE RCRM 
FIELD OF SCANNED IDENTIFIERS 

TY?ESST4CK(PST'iCKSIZ£)BYTE EXT,/* HCIDS A VARIABLE'S 

V p ■!? ^ 

EXPRESS$STK(?STACKSIZE )BYTE EXT./* CONTAINS THE 
TYRES OF THE EXPRESSION COMPONENTS -/ 

PHTiADDF (?ST« CKSIZD ) ADDR EXT, /* STCPES AN 
IDENTIFIER'S ?RT LOCATION */ 

p.arammuy byte ext, 

(SP,M?'iMP?l) BYTE ext; 
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/=:< i^NENONICS EOR PASCAL-Sr f",ACEINE -/ 
DCL 



NOP 


LIT 


'0' ,ENDP 


LIT 


' 1 ' 


,L3L 


LIT 


' 2 ' , LE I B 


LIT 


'3' 


LEI I 


LIT 


'4', PRO 


LIT 


'e. ' 


,RTN 


LIT 


'6 ' ,SAVF 


LIT 


'7' 


UNSP 


LIT 


'a' ,CNVR 


LIT 


'9' 


,CNVI 


LIT 


'10' ,ALL 


LIT 


'11 ' 


LITA 


LIT 


'12 7 ADLR 


LIT 


'13' 


,ADDI 


LIT 


'14' ,SU3F 


LIT 


'15' 


SUE I 


LIT 


'l 6 ',hUL? 


LIT 


'17' 


,'^ULI 


LIT 


'IS' ,riVB 


LIT 


'19 ' 


DIVI 


LIT 


'20' ,KODX 


LIT 


' 21 ' 


,ECLI 


LIT 


'22' , NEC! 


LIT 


'23 ' 


LEG I 


LIT 


'24',GECI 


LIT 


'25' 


,LSSI 


LIT 


'26' , CRT I 


LIT 


'27' 


XIN 


LIT 


'28' ,EQLP 


LIT 


'29' 


,NECB 


LIT 


'30' ,LEQE 


LIT 


'31 ' 


G^OR 


LIT 


'22',LSSR 


LIT 




,GRT3 


LI'^ 


'34' .EOLS 


LIT 


'35' 


NSOS 


LIT 


'36' ,LECS 


LIT 


'37' 


,GEOS 


LIT 


'36' ,LS3S 


LIT 


'39' 


CRTS 


LIT 


'40',EQSET 


LIT 


'41 ' 


,NEQST 


LIT 


'42' , INCH 


LIT 


'43 ' 


INCL2 


LIT 


'44' ,NEG^ 


LIT 


'45' 












NEGI 


LIT 


'46',COf^B 


LIT 


'47' 


,COM 


LIT 


'46' ,NOTX 


LIT 


'49' 


ANDX 


LIT 


'50' , BOR 


LIT 


'51 ' 


,STC5 


LIT 


'52' .STOI 


LIT 


C T- 


STO 


LIT 


'54', STEP 


LIT 


'55' 


,STDI 


LIT 


'56' ,STE 


LIT 




UNION 


LIT 


'5S' , STBIE 


LIT 


'59' 


, ISEC 


LIT 


'c0',CNAI 


LIT 


'61 ' 


BRL 


LIT 


'62', EEC 


LIT 


'63' 


,CN2I 


LIT 


'64' ,MKSST 


LIT 


'65 ' 


XCHG 


LIT 


' 66 ' ,?A?r; 


LIT 


'67' 


,?A?.YV 


LIT 


'63' ,PAF7:X 


LIT 


'69' 


INC 


LIT 


'70', EEC 


LIT 


'71' 


,DEL 


LIT 


'72' ,V>PT 


LIT 


'73 ' 


SUB 


LIT 


'74',LESI 


LIT 


'75' 


,KASE 


LIT 


'76' ,LOE 


LIT 


'07 ' 


LODR 


LIT 


'78' , LODI 


LIT 


'79' 


,RDV3 


LIT 


'80' , REV I 


LIT 


'SI ' 


REVS 


LIT 


'82', ^RT? 


LIT 


'63' 


, P T I 


LIT 


'64' .VRTS 


LIT 


'85' 


DUMP 


LIT 


' 86 ' , AES 


LIT 


'87' 


,SCR 


LI? 


' 86 ' ,SIN 


LIT 


'69' 


COS 


LIT 


'90' ,ARCTN 


LIT 


'91 ' 


,EXP 


LIT 


'92' ,LN 


LIT 


'93 ' 


SORT 


LIT 


'94' ,OEE 


LIT 


'95' 


,EOLN 


LIT 


'96' ,FXF 


LIT 


'97' 


TRUNC 


LIT 


'98' , ROUND 


LIT 


'99' 


,ORI 


LIT 


'100' ,CFR 


LIT 


'101 ' 


SUCC 


LIT 


'102' ,PREE 


LIT 


'103' 


,S^EK 


LI^ 


'104' , PUT 


LIT 


'105' 


GET 


LIT 


'106', RESET 


LIT 


'107' 


,REV.RT 


LIT 


'108' ,?AGF 


LI? 


'109' 


NSW 


LIT 


'110',riSPZ 


LIT 


' 111 ' 


,FVE 


LIT 


'112' ,XTRNL 


LIT 


'113' 


REV 


LIT 


'114'; 

















SCANMSR:?POC EXT J 
END SCANNEP; 

PRI?JT$PROD: PROC EXT? 

ENE prikt$prod; 

ERROR: PROC (ERRCCEE ^ EXT; ICL SRRCCCE AEER; 

ENE terror; 

/- external PROCIEURES FRO^'^ symbol. SRC -7 
GENERATE: PROC ( CBJCOES ) EXT; ECL OBJCGES RITE; 

END generate; 

GEN^ADDP: PR0C(A,3) EXT; ECL A RYT^; ECL 3 ALD^; 
EME GEN i AEER ; 

SETAEDRPTR: PROC ( GEES ET) EXT; 

ECL OFFSET BYTE; 

END setaderptr; 

SET$PAST$PN: PPOC(OEESET) EXT; 
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DCL CUTSET byte; 

ENC SST$PAS':§?N ; 

CHK$PRT$NAMI; PROC(A) BYTE EJT: 

/- A IS OPFSET EECr BASE TO PRINTS A, YE ’^V 
rCL N PASSE PRINTN'AYE BYTE; 

DCL (LE?J,A) byte; 

END chk^ppt$naye; 

LCOKUP$PM^ID: PROC.(A , IDiENTRY ) BYTE EXT: 

DCL (a,id$^ntry) byte; 

END LOOKUP^ PN$ id; 

LIYITS: PROC( COUNT) EXT; 

DCL COUNT byte; 

END LIKITS; 

EMTER$VAR<ID: PROC ( A , B , I E $EN TRY ) EXT; 

DCL (A,B,ID$ENT5Y) BYTE; 

END ^nter$var^ie; 

ALTER$PRT$LOC : PROC EXT; 

DCL (i,p) byte; 

END ALTER$PRT^LOC; 

ENTSRiSUBRT.N : PROC ( A , B , I E$ENTRY ) EXT: 

DCL (A ,B, ID^ENTPY) BYTE; 

END ENTEP$SUBRTN; 

LOCXUP$ONLY: P?OC(A) BYTE EXT; 

DCL A byte; 

END lookup$only; 

CONVPTBCD: PR0C(A,B) EXT;/- A=SP/YP/YPP1 , B=P03/NEC- ■- / 

ECL (I , J, DELAG,EELAC-,SELAG,A ,B ,N BASED P^INTNAiYF'i BYT 

END convrtece; 

CONVERTI: PP.OC(A,B) ADDRESS EXT; 

DCL (I,A,B,N EASED PRINTNAYE) BYTE; 

DCL NUY ADER; 

END CONVERTi; 

CONVRTiCONST: PROC(A) EXT;/- A=POS ,NEG ’V DCL A PYTE: 

ENE convrt$const; 

ENTR$CONS$NTFY: PROC EXT; 

ECL IXINDEX PYTF; 

ENE SNTR3C0MS$NTRY; 

ENTR$STR$TYP: PROC(A) EXT ; 

DCL A byte; 

EME ENTR$STR$TYP; 

STORE$GONST: PROC EXT; 
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EMr store^comst; 

/- EXTERNAL PROCEDUT^E EEC LARAT IONS ERON SYM.SRC / 

CRD$HI$LOV/iCHX: FROC EXT; 

END ORDiHIiLOW^CHK; 

ENTRiSUE$N'TRY: PROG EXT; 

END ENTF$SU3SNTEY; 

ALLCiOEFSST: PROC(A) EXT;/- TYPE^LOCT -V 

rcL A aedr; 

DCL (ALLC$EORi^. ,3) BYTE; 

END ALLCiOEESET; 



AL$NDX$OEESET: PROG ADLR EXT; 
DCL A ADDR,3 BYTE; 

END al$ndx$offset; 



ALLOG$VARS; PROG EXT; 

END ALLOC $VARS; 

CASE^PTRPTR: ?ROC(A) EXT; 
rCL A BYTE; 

END case$ptp?tr; 



SETiVAR^TYPE: PROG EXT; 
END SET$VARiTY?E; 



LOADSVART: ?RQC(?T) EXT; 

DCL PT byte; /- PT REPRESENTS 
END loadavari; 



STACK' POINTER -/ 



ASSIGN$VARI: ?ROC(LS, STOPE$TYP^) EXT; 

DCL LS PYTE; /- LS is the LFET SIDE OE ASSP^T STI^T -/ 
DCL (A, B, STORFSTYPE) BYTE; /- STCRE$TYPE If’DICATES 
WFE THE"R 

to’ DELETE OR LEAVE TEE CURRENT VALUE AT TFE TOP OF T 
STACK ■-/ 

END ASSIGN$VARi; 



CHK$SX?R$TYPE: PROC BYTE 
END CHKiEXPR^TYPE; 



EXT ; 



COPYiSTACKS: PROC(A, B) EXT; 

DCL (A, B) byte; 

^ND COPY$STACXS; 

ftRlTE$VAP: PROC(NbT'P) EXT ; 

DCL NUf^B byte; /- NUrESR OF WRITS PARA.YS -/ 
END wpite$var; 

READiVAR: PROC EXT; 

END rsad$var; 
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SCOP^i^EANCH: PPOC PXT; 

EMD scofe^pranch; 

LABEL$I^AKER: PROC EXT; 

pjjD label$kakfr; 

USEPiTYP: PPOC(A) EXT; 

ECL A byte; 

EMD user$typ; 

SETSA.VE^PLOCK : PPOC EXT? 

END setsave^block; 

HEAD$MiBL5: PROC EXT? 

ENE head^n$blk; 

EWr$SUERTN: PROC EXTT 
END EWD$SU3PTN; 

GOTiPARA^'S: PROC EXT; 

END GOT$?ARAr^S; 

SET$OP$TYPE: PROC(A) EXT? 

ECL A byte; 

END SET$OPATYPS; 

CALL$A^PROC: ?RCC(A) EXT; 

DCL A byte; /- TRUE OR "AL3E -/ 
END CALL^AiPROC; 

GOT$?rNCSTYPE: PROC EXT; 

END got^func$type; 

DEPROGRAM; PROC EXT,* 

END end^ppogram; 

ARAYiDECLAPE: PROC EXT,* 

END arayadeclare; 

EIND$RELOP: PROC EXT,* 

END EIND^RELOP; 

$EJSCT SYNTHESIZE: PROC PUBLIC; 



IE LISTPROD THEN 

CALL print^prod; 



DO CASE production; 



PRODUCTIONS 



V# Vi %•# %** V# - 

^1% #1% #1% ^1% . 



/- CASE 0 NOT USED "/ ; 

/’- 1 <PPOGRAiY> ;:= <PP0GRA;^ HEADINO 






<3L0CK^ 
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/- 

/- 

/- 

/*■' 



CALL SNL$P?,OGRAr^; 

2 '' <PROCZDUHR HSADIN'O <'PL0CK> . '' ’V 
CALL PMLiPROGRAh; 

3 '' <^UNCTI0N HPADINO <3L0CR> . -/ 

CALL endsprograk; 

4 ^PROGRAl^ REALPIG> : := P^CGRA^' <PfiOG IDF\'T> ( ■■'/ 

4 <X7ILE IDENT> ) ] -/ 

do; 

SCOPSiNUM = id; 

SC0PE{SC0PE5NTJ,^.) = 33TBL; 

SCOPEiNW, = i; 

end; 

5 <XFILE IDENT> ::= <FILE IDENT> -V 



/❖ 


6 

• 


<XFILE IDSNT^ , <? I IE IDFN'TA 




/- 


t 

7 

• 


<PROG IDENT> ::= <IDSNTIFIER> 




/❖ 


S <FILE IDENT>::= <IDENTIFISR> 






CALL 


ENTERiVAR$ID( 16,SP .FILE GENTRY) ; 




/'•' 


9 

• 


<rBLOCX> ::= <LD?><CEP><TDP><VDPXPS.^D?><ST^,T?^ 






10 


<LDP> ; := 






CALL 


scope$erancr; 




/'•• 


11 


'' LABEL <LA3EL STRING> ; 






CALL 


scopf^branch; 




/- 


12 


<LAEEL STRINO :;= <LA5EL> 






CALL 


labfl^i^akef; 




/- 


13 


<LABFL ST?.ING> , <L.4?FL> 






CALL 


labsl$maker; 




/'•' 


14 


<LA3EL> ::= <NUr^'BSR> 


'■7 



IF TYPENUf^ <> INTEGER$TYPE THEK 
CALL ERRCR('LS'); 



/* 

/XC 

/- 



15 

• 

f 

16 
17 

I 

13 



<CDP> : : = 

'' CONST <C0N3T DFF> >* 

<C0NST DEF> ::= <IDENT CONST DEF> 

'' <C0NST DE^> ; SILENT CONST EEF> 



/- 



19 ^IDENT CONST DEF> ; ;= <IDENT CONST> = <C0NSTANT^ 
CALL entr$ CON Sentry; 

20 <IDFNT C0NST> ;:= <IDENTIFIER> 

do; 

IF LOOKUP $ON LY( S?) THEN 
CALL ERR0R( 'DC ') ; 

CALL ENTERiVAP$ID(0,SP,CONS$ENTPY) ; 

T^ND ; 

21 <C0NSTANT> ::= <NUKBER> 

do; 

CALL CONVRT^CONST(PCS ); 

EXPRESSiSTK (f''P)=CONS^NU;^$TYPF; 

YSCPTR=VECPTR+1 ; 



'-‘V 
* / 
>;:/ 
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/- 



/••' 

/- 

/- 

/>:= 

/❖ 



ene; 

22 
bo; 

IF ?IGNTY?E=NEC- TEEN 

CALL CONVP.T$CONST(NIG) ; 

ELSE CALL CON'VRT^C ONST ( POS ) ; 
EXPRESS iSTK ( ) =CONS $NUM$T YPE : 
VECPTP.=yECPTP + i; 

SiGNiFLAG = false; 



end; 

2? '' <CCNSTAMT IDFNT> 

Eo; 

EX?RESS$STK(MP) =CONS$ IEENT$TYPE; 

vecptp=vecptp+i ; 

CALL STORE$ const; 

ene; 

24 '' <SIGN> <CONSTAMT 

do; 



lEENTN 



IF SIGNTYPE=NEG THEN 

EXPPESS$STK([NP)=C0NS$SIDFNT$TYPE; 
ELSE EXPRESS$STK(MP)=C0NS? IDENTITY PE ; 

vsc?tr=vecptr+i : 

CALL store$ccmst; 

SIGN$FLAG = false; 



ene; 

25 <STRING^ 

do; 

EX?RESSiSTK(MP)=CONS$STRATYPEt 
VECPT?=^rvcPTR-^l ; 

CALL store$comst; 

ENE ; 

26 <C0NSTANT IEENT> :;= <IDENTIFIER> 



2'? <SIGN> ::= + 

Eo; 

S IGN$TYPE = POS ; 

sign$flag = true; 
end; 

2S 

do; 

SIGNSTYPE = meg; 

SIGN$FLAG = true; 
end; 

29 <TDP> ;;= 

casf$stmt=falsf; 

30 '' type <type def string> ; 

CASE$ST^:T=FALSE; 

31 <TYPE DEF STRING> : ;= <TY?E ID^ 



=;V 



'■V 












ijt/ 



'■V 



32 '' <TYPE EEF STRINGS ; <TYPE !£'> =V 



33 ^TYPE IE> ::= <TY?E IDS> = <TY?S.> 

do; 

aptraddr=tyfeUddp ; 
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ADrRPT’.=TYPE<LOCT; 

END ? 

/« 34 <TY?E IDS> ::= <IDENTI?IER> 

do; 

IF LOOKUPiONLY(SP) THEN 
CALL ^RHOR('DT'); 

papent$type=sbtbl; 

CALL ENTFH$VAP$IL(7£H,SP , TYPE $SN TRY ) ; 

IF NOT present THEN 

do; 

CALL LII^ITS^2); 

type$addr=s3t^l; 

S5TBL=SPTEL+2; 

end; 

end; 



/- 35 <TYPE> ::= <SIMPL£ TYPE> -V 

f 

/- 36 '' <STRUCTURED TYPE> 

/* 37 '' <POINTER TYPE> >:=/ 

f 

/- 36 <SIMPLE TYPE> :;= <TYPF IDENT> -'V 

t 

/- 39 '' ( <TILENT STRING> ) 

; 

/* 40 '' <constant> .. <C0NSTANT> -V 

CALL FNTR$SU3$MTRY; 

/- 41 <TY?E ILENT> :;= <IDENTIFIER> -V 

IF LOOKUP$PN$IL(SP .TYPSiSNTRY) TEEN 

ty?e^loct=loo!Cup$addr ; 

ELSE do; 

call error( 'ti '); 



TYPEiLOCT=.?UlLT$IN$TBL; /- INTEGER DEFAULT -/ 

end; 

/❖ 42 <TIDENT STRING> ::= < I DEN T I FI ERN -/ 

do; 

TYPE$ORr$NUi’^=C; 

CALL USFR^TYP(TYPE$ORD$NUM ) ; 

end; 

/- 43 '' <TIDENT STRING> , < I DFNTI^ IE?> -/ 

do: 

TYPEiORD$NUiY=TYPFiORDiNUM^l ; 

CALL USER$TYP(TY?E$CRD$NU.^) ; 

end; 



/^c 


44 

• 


<STRUCTURED TYPE> :: 


= <UN?ACXED STRUCTUFED TY?E> 


V/ 


/- 


1 

45 




'' PACfCED 


‘"■V 


/- 


45 




<UNPACKED STRUCTUFED TYP^^ 




/^' 


46 


<UNPACKED STRUCTURED 


TYPE> ::= <ARRAY TYFE> 




/- 


* 

47 

• 




<RFCORD TYPE> 


'•V 


/- 


1 

4c 




<SET TYPE> 
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<FILZ 7YPZ> 



/- 

/- 

/- 



/- 

/- 



/- 

/:;< 



49 



50 <AHFAT TYPZ> ;:= ARRAY [ <INDFX TYPF STRING^ ] 

50 <COMPONFiN!T TYPZ> 

CALL araY$DFCLAPF? 

51 <INDEX TYPE ST^ING> :;= <INLEX TYPZ> 

Eo; 

1'=' apry$?tr=aprysnest-i then 
do; 

CALL ERROR( 'AN ') ; 

AEY$Df^^ADR?PTR = ARY?DK$ADP $PTR - 

NUM<AREY^DI^ (ARRYY^PTR ) ; 

END ; 

ELSE AERY$PTR= ARRY$FTR+1 ; 

ARRY$DIN'^PTR = 0; 

ARY^rM$ArR$PTR=ARY$L^$ADR$PTR+l; 

APRY$QTY( AREY5PTR) = AL$N DX$OEFS ET; 
ARRY$Dl;^EN'(APY$DN;iAD?$PTR ) = TYPE^LOCT; 

tempease=pase; 

BASE = typeloct; 

CALL SETADDRPTR(7) ; 

ARRY^ri^iLOWVAL(ARY$D^'$ArEi?TR) = ALLEPTR; 

CALL setaddrptrO) ; 

ARRYiDir"$HlVAL(AEY^BI^UDRiPTP ) = ADDRPTR; 

CALL SSTALDRPTRdl ) ; 

NUI^$ARRYiELN!TS( ARY$L';Y$ADPSPTE ) = ADLRPTR; 

ease=ten’PBase; 

NUN'^ARR^iri,'^(ARRY$PTR) = i; 

t^md; 

52 '' <INDEX TYPE STRING^ , 

52 ^INDEX TYPE> 

do; 

IE ARRYAdIM$PTR=MAX$ARRY$DIN;-1 them 
CALL error( 'ad') ; 

ELSE a?ry$diiy$ptr=abfy$dim?ptr + i ; 
ARYiDMdDR$PTE=AEY$DM$ADESPTR+l ; 
AERY$QTY(ARR7$PTR) = ARRYiOTY(ARRY$PTE) - 

al$ndx^ofeset; 

ARRY$DIN'EN(APYiDM^AD?^?TR )=TYPEdOCT; 

ten!pbase=ease; 

base=type$loct; 

CALL SETADDEPTR(7) ; 

ARRY$DlN^$LOWVAL(ARY$DM$ADRiPTR) = ADDRPTR ; 

CALL SETADDEPTP(9) ; 

APRY^DI^$HIVAL(ARY$D^UDRiPTR)=ArDRPTR; 

CALL SETADDRPTEdl ) ; 

M W $ AERY $ ELN: TS ( AR Y $D,Y $ ADR $ P TP ) = ADD fiP TE ; 
3ASE=TEN!P5ASE; 

NUf^^ARRYiDlN’f APRY^PTR )=N UN’$ARRYd I N" ( APPY$?TR ' -1 ; 

t^nd; 

53 <INDEX TYPE> ::= <SIMPLE TYPE> 

54 <COt^PONENT TYPS> ;:= <TYPS> 



"V 






'■V 
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'“7 



/- 55 <RICO^D TYPE> ::= <P^CO?D> <?IILD LI3T> FMD 

Eo; 

V A ?.I A N ? $P AHT ( P^C $ N S T ) =FALS Z ; 

BASZ,TYPEiLOCT=RZC$?AP$ADP (KECiNST) ; 

IF VAPiCAS^yAL(REC$NST ) O 0 THEN 
CALL ERROR ('IV'); 

CALL SETADERPTR (5) ; 

ArEP?TP.=FXr$OFSTiBSE(RSG$NST^; 

CALL SETADDRPTP(7); 

ALDF?T?.= PRV$SPT$SNTRY; 

RECiNST=REC$NST-l ; 

end; 

/»:= 56 <RECORD> ::= RECCRE -/ 

ro; 

REC$NST=REC$NST+1 ; 

APTRADDR,R£C i?A R $AEP ( REC $ MS T ) = S^TTL,' 

aeerptr=0000h; /-collision entry*/ 

APT?ADDP=AFTRAEDR+2; 

ADERPTR=PRViS?T$SMTRY; 

PRV^SPTiSNTRY=SB7BL; 

APTRADDR=APTRADDR+2; 

byteptr=iee; /* foriY for recope */ 

SBTBL=SBTBL+9; /* ALLCV/ FOR REST OF ENTRY */ 

/* INITIALIZE PECOPD */ 

V A ? I A N T $ ? A R T ( P F C $ M S T ) , T A Cr i F E { R E C i M S T ) = F A L S E ; 
FXLiOFSTiBSE(REC$NST)=0000H: 

V AR iO FS Ti B SE ( REC $ NS T ) =000? E ; 

CU-iOEST(REC^MST )=0000F; 

VAR$CAS$VAL(REC$NST ) =00005; 

RECOFE^PTR=-i; 





END 


• 

f 








/* 


1 

57 


<FIFLE 


LIST> 


^FIXEL PART> 


*/ 


/- 


5e 

• 






<FIXED ?APT> ; <^'AEIAMT PA?T^ 


*/ 


/* 


5 9 






<VARIANT PART 7 


*/ 


/* 


60 


<FIXED 


?APT> : := 


<RFCORE SECTION> 


*/ 


/* 


» 

61 

• 






<FIXED ?ART> ; <RECC?.E SECTICN> 


*/ 


/- 


62 


<RECORE 


SECTTON> 


::= <FIELE ILENT STRING'^ ? <TY?E 


>*/ 




do; 











CALL ALLCiOFFSET(TYPE$LOCT ) ; 



/* AL0C3ASICTY? AND ALLC$QTY ARE SZT */ 
DO PTRPTR = 0 to p.ecordsptr ; 

BASE = REC$ALER(FTRPTR ) ; 

CALL SET^PAST$PN (9) ; 

BYTEPTR = ALOCBASICTYP; 
APTRAELR=APTRAEER+1 ; 

aee?.ptr=ty?E5LCct; 

APTPAEE?=AFTRAEER^2; 

AEEP.?TR = CU?$OFST(RSC$MST ) ; 



1S0 



CUPiOFSJl P.^CiK'ST )-CURiCrST(?.SCSNST ) 

+ allC^cty; 

EST: 

RECOFriPTR=e; 

I? ^XE?0FST$RSE(?FC$;'1ST ) < CUR$0 ^ST( RFC ^ N ST ) 
TFFN FXr i OFST i BS J ( RFC $ NS T ) =C UR in F S T ( RZ C ^ NS T ) ; 

zne; 



/- 


63 

• 








/* 


64 


<FIELD I DENT STRINO <FIELD 


IDENT> 


'■7 


/- 


; 

65 


'' <FIELD 


I DENT STRINO , 




/❖ 


65 


<FIELD 


IDENT> 






; 

66 


<EIELD lDEi‘IT> ::= <IDENTI7IEH> 








do; 










17 


RECOPDiPTP <> 10 THEM RECORDiPTR 


=PECCRDiPTR+l ; 






ELS 


E CALL ERPOP( 'RN' ); 







REC$AErR(RECORri?TR )=S5TEL; 

C»LL ENTERiVAPiID(53H,SP,TYPF$ECLZ) ; 
IF NOT PRESENT THEN DO ; 

CALL LIMITS(7); 

aptraddr=sbt?l; 

AEDFPTR=RECiPARiADR (EECiNST) ; 
SBTPL=SPTBL+7; 

END; 

IF VA?IANT$PAFT(?ECiNST) THEN 

do; 

34SE=REC$ADDR( RECCRBiPTR ) ; 

CALL LIYITS(2); 

CALL SETALLRPTR(4) ; 

3YTEPTR=0LF-; 

end; 



end: 





67 


<VARUNT PART> ::= CASE<TAC FIELDXTYPE 


IIEN'^> OF 


=7 


/- 


67 

• 


<VAFIANT STRINO 




=7 


/- 


68 


'' CASS YTYPE IDENT> OF 




=7 


/•'' 


66 

• 


<yAPIANT STRINO 




’7 




69 


<VARIANT STRINO ::= <VARIANT> 




-■7 


/❖ 


; 

70 

• 


'' <VARIANT STRINO ,* 


<VA^IANT 


>'•7 




71 <TAG FIELD> ::= <FIELD IDENT> : 

T A G < F D ( F, E C $ N S T ) =TF.UE ; 




=7 


/- 


72 

• 


<VAPIANT> ::=<CASE LA3EL LIST> : (<FIELL 


LIST> ) 


'■7 


/- 


> 

73 

• 






-7 




1 

74 

DO 


<CASE LABEL LIST> : := <CASE LA3EL> 

• 

LABELSTACS(SP) = LABLCOUNT; 




'■7 



LABLCOUNT = LABLCOUNT + 2J 
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art"?*#; 



CALL GEN^AECK (KASE,ALLC$QTY ) ; 

CALL GENZRATEf'T OV(LABELSTACK (SP ) ) ' ; 

CALL GZNEP.ATZ(EIG5( LA^ELSTACK ( S? ) ) ) ; 

END ; 

/'!' 75 '' <CASE LABEL LIST> , ^CASE LAPEL>-V 

do; 

CALL GENiADDE(KASE,ALLC$CTY) ; 

CALL GENERATE flow (LAEELSTACK (M? ) ) 

CALL GENERATE(EIGH(LA3ELSTACK(.YP) ) ); 

end; 

/* 76 ^CASE LAESL> ::= <CONSTANT> ^-V 

IE CASE$STMT TEEN 

do; 

CASE$STK(CASEiCOUNT) = C ASE$ STE ( CAS Si COUNT ' + i; 

DO CASE EXPP.ESSiSTE(S? ) ; 

/- NUMBER -V 

ALLCiCTY = COMVERTI (S?,P03 ) ; 

/- IDENTIFIEF -V 

do; 

IP MOT LOOX$UP$OMLY(SP) THEN CALL E^ROR('rT'): 
ELSE do; 

BASE = LOOKUPiADDP; 

CALL SET$PAST$PN(7); 

ALLCiQTY = ADDRPTR; 

end; 

end; 

/- SIGNED IDENTIFIER -V 

DO ; 

end; 

/■'' STRING TYPE -/ 

end; /-of case-/ 

end; 

ELSE 

do; 

IF NOT VARIANT$PART(REC$NST ) TEEN 

do; 

VARIANTiPART(RECiNST )=TRUE; 

vap$c»s$tp(pec$iNst)=type$loct; 

VApiCASiVAL(HECiNST)=ALiNDXiOEESET; 

CALL ALLCiOBFSET(TYPE$LOCT) ; 

IF TAG$FD(REC$NST) THEN 

do; 

TAG $F D ( REC i N S T ) =EA LS S ; 

BASE=PEC$ADDR(RECCRDiPTP); 

CALL SETADDRPTR (4:) ; 
byte?tp=9fh; 

CALL SETADDR?TR(5) ; 

CALL SETADDPPTrU*BYTEPTP ) ; 

ADDR? TR=VA R $ CAS iV AL ( R EC iN S T ) *, 

A P TRA DD ? =AP TP.A D D R +? ; 

ADD^?Tp=VARiCASiTP (RECiNST ) ; 

APTRADIR=A?TRADLR-^2; 

ADDRPTP=CUP$O^ST(HECiNST) ; 
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CrR$0^ST(H5CSfjST)=CURS0?ST(EICiNST)-A.LL:$CTY; 

F \' £ J 

VAP$r7ST$ESFf PEC$NST)=CU?.iOFST(REC^N3T) ; 
F7£S0'^ST$3SE.(^FCiNST)=CUR^0FST(RFC$NST ) ; 

EN£; 

/- CALL CO^^^AREiCONST$VARIA\'T; >:V 

/■'' CHFCrCS TEE CASE LA3LE V'TT? THF VARIANT TYPE -V 
CIJR^OFST (REC$NST)=VARiOFSTi3SF(?,EC AN3T) ; 
VSC^TR=VSCPTR-l: 

CONST$PTR,CONST^INI)X,CONST$PNiPTR=c*; 





end; 






/- 


76 


<SET TYFE> ::= SET OF <EASE TY?^^ 


=7 




CALL 


ENTR$STR$TYP(?7H) ; 




/- 


76 

• 


<EASE TYPE^ ::= <SII^PLS TYPF> 




/- 


t 

79 


<FILS TYPS> ::= FILE OF <TYPE> 


'•7 




CALL 


ENTPiSTR$TYP(2FH) ; 




/=:< 


60 


^POINTER TYPS> ::= '' <TYPE irENT> 


❖/ 




CALL 


FNTR$STR$TYP(37E) ; 




/- 


£1 


<VDP> : : = 


=7 




SCOPE^SCOPSiNUK) = setel; 




/* 


82 


VAR <VAR DECLAP STPIiiG> ,* 






SCOP 


F(scnPEiNUK) = setel; 




/* 


63 

• 


<VAR EECLAR STRINC-> ::= <Vip. £ECLAR> 


^7 


/- 


1 

£4: 


<VAP D^CLAR STRINGS ; 


'•7 


/- 


64 


<VAR DFCLAR> 


=7 


/- 


; 

85 


<VA? DECLAR> ::= <IDENT VAR STPINO : <'^YPE'> 






do; 








CALL ALLOC^VARS; 






END ; 






/* 


66 


<I£SNT VAR STRINO ::= <^l£ENTI ^I EP> 






do; 







VARiPT? = 0; 

PARENT$TYPE,VAR$PASE( VARPTR) = SPTBL; 

CALL ENTEP$VAP^IC(0 ,SP ,VAR$ENTRY) ; 

end; 

/* '' < I LENT VAR 3TPI.\’G> 

/- 87 <ILENTIFIER> 

IF VARPTR <> 10 THEN 

lo: 

VARiPTP = VAH$PTR + i; 

VAR^3ASE(VAR$PTR) = SBT3L; 

CALL ZMTERiVAR$ID(0,SP,VAR$SNTRY) t 





end; 

ELSE 


CALL ERROR 7VN' ) ; 




66 


<P6;FD^> :: = 




CALL 


SETSAVE3BL0CK; 


/- 


£9 


'' <F0RF 




CALL 


SSTSAVSiELOCK; 


/* 


90 

• 


<P0RF DFCLAP> : := 


/❖ 


J 

91 








<PPOC OP ■'^UNCT> ; 

<?ORF DECLARE <P?.OC FUNCT> 



•■7 

;=7 
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92 


<?ROC OR FUNCT> <'PROCEEURE HEAEIMO <EIOC‘<> 


■■V 




CALL 


EEAEiN$PLf:; 




/❖ 


a 3 

• 


<?ROCEElJRS HEADING^ <riFECTIVE> 




/- 


94 


<EU‘JCTION EEADING> <3LCCK> 






CALL 


heae$n$3lk; 




/'•' 


95 

• 


<FUNCTIC.N HEAEINO <'EIRECTIVE> 


-/ 


/'*' 


f 

96 


<EIRECTIVE> ::= <IDENTIEIER> 






IE NOT LOOEUF$CNLY(SF) TEEN CALL ERROR('IT'); 






ELSE 


do; 






PASS = lcokup$aedr; 

CALL SETADDRPTE(5); 






IF 


BYTEPTR = 21 TEEN CALL F'.'/E^SUBRTN ; 






end; 






/- 


97 


<?F0CEEURE HEADING> : := <PR0C IE> ; 


-/ 




CALL 


GOT iPA RAMS ; 




/>:< 


98 


<PR0C ID> ( 


”'V 


/- 


93 


<?0?MAL ?4RA SECT LI3T> ) ; 


-■7 




CALL 


GOT $?A RAMS ; 




/❖ 


99 


<?ROC ID> ::= PPOCEEURS <IEENTIFI2R> 






do; 








PAPAMNUN' = 3; 

CALL ENTER$SUIRTN(0,S?,?RCC^ENTRY) ; 






^nd; 








130 


<EOPMAL PAPA SECT LIST> : := <ECFMAL PAr.i SECT> 


'•7 




CALL 


ALLOCiVARS; 






101 


<"0RKAL PARA SECT i:ST> 


; -/ 




131 


<EORMAL PARA SECTA 






CALL 


ALLOC$VARS; 






102 

• 


<E0RMAL PAPA SECT> ::= <PARA GRCU?> 






f 

102 


VA?. <PAFA GROU?> 


■'V 



EO: 

TEKPEYTi = VAP^PTF; 

DO VA^iPAPiYSPTB = 0 TO TEf^PPYTF; 

PASE = VARB4SE ( VAR$P ^RMiPTH ) ; 

CALL SETAEEPPTP(4) ; 

E^TEPTR = 5YTEPTR OR S0H; 

end; 

end; 

104 '' FUNCTION <PARA GROUPS -/ 

do; 

TE!^PPYTE = VAF^PTR; 

DO VAR$PARM$PTR = 0 TO TEmppyTE; 

RASE = VARBASE ( VAR$PARM$PTR ) ; 

CALL SETADD?PTP(4) ; 

BYTEPTR = EUNC$ENTRY OR B0E; 

end; 

end; 

/« 105 '' PR^CEEURE <TPROC lEFNT LIST^ */ 

/* 106 <PF.OC lEENT LIST> <IEENTIFIER> ''V 
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do; , 

VA?.?PTD=C ; 

PspAh^.NU!^ = PAPAf^NUK ^ i; 

VA?.^BASE(0 )=SPTPL; 

CALL ENTER$SUiHTM (0 ,SP .PROCiPNTRY ^ ; 

fnd; 

107 '' <?T50C IDENT LIST> , <ir?NTT?IEH'>-/ 

IF VAR^PTR <> IG THEN 

do; 

VARiPTR=PAR$FTP+l ; 

PARAMNUN* = PAPArNUM + i; 

VAP$BASE( VAR^PTR)=SBT3L; 

CALL ENTERiSUBRTM(0 ,SP ,?ROC$FN?RY ) ; 

end; 

ELSE CALL ERPOR( 'VN ' ) ; 





i0e 

• 


<?APA 


GROUP.S ::= <PARA 


IDENT LISTS ; 


<TY?E IDENTS^V 


/« 


109 


<PARA 


I DENT LIST> :: = 


<IIENTIFIER> 





do; 

YARAPT?.=0: 

PARAMNUK = PARAN!NUK + 1,* 

VARiBASE(0)=S3T?L; 

CALL SNTERiVARiIE(0 ,SP .VARiSNTRY) ; 

end; 

110 " <?ARA ID^NT LIST> , <ILFNT I FI EE '--V 

IF VARiPTR <> 10 THEN 

Dc; 

VAR$PT^=YAR$pTF+i; 

PARAN'NU.'^ = PAPAMNUN’ ^ i; 

VAP$3ASE( VAR$PTR )=S3TPL; 

CALL EN’TE^^VAP$lD(0,S?,VARiENTPY) ; 

£ fl D } 

ELSE CALL ^RHOR('VN'); 

/- 111 <FUNCTION HEADINO : :=<FUNCT IDS ;<RESULT TY~’FS ; 

do; 

CALL C-0T$PARAMS: 

CALL GOT5EUNC$TYPE ; 

end; 





112 


'' <7l'NCT ID> ( 




/>:= 


112 


<FORrAL ?k'A SECT LIST> ) : 


'■V' 


/- 


112 


<RSSULT TY?E> ; 


'-•V 



do; 

CALL GOT$PARAN’'S ; 

CALL got$func$type; 

CALL aLTER$PRTiLOC; 

£ M B r 

/- 113 <FUNCT ID> ::= FUNCTION <" ID ENT IF I EP> 'V 

do; 

PARAN'NUN! = Z', 

CALL ENTER$SUBRTM{0,SP,FUMCiENTRY) ; 

end; 

/^' 114 <RESULT TYPES ;:= <TYPE IDENT> '‘V 

CALL ALLC$OFFSET(TYPELOCT) ; 

/- 115 <ST'"TP> ::= <C0N:P0UND STi'"T> '-V 



165 



/- lie <STr^T> ::= <?M- ST^!T> -/ 

» 

/- 117 '' <UNrAL ST'"?^ ■-/ 

> 

/* 118 '' <L»EEL D2F> <STrT> V 

f 

/* 119 <"=AL STMT> ::=<I2 CLAUS'^XTrU? PART> ZLS~<3AL Si:^T^=V 
CAIL CSN$AIDH(LEL, ( LAIELSTACKC f"? ) -1 ) ) ,* 

/- 12 ?, '' <SIi^PL2 STy?> -/ 

/* 121 ^TJNBAL STKT> ::= <1? CL»USS> <STt^:T> -/ 

C»LL GT'liADBR( L3L , LABELS T\ CX ( [^? ) ) ; 

/- 122 '' <IF CLAUSE^ <TPUE ?A?T> ELSE -'V 

/- 122 <UMEAL STMT> -V 

CALL GEN'$\I)DP(L3L , ( LABELST AC'^ (^P )-^l ) ) ; 

/- 123 <IF CLAU3E> IE <EXPPESS lOK^ T’^EN =V 



lo; 

LABELS TACK (M? ) = LABLCOUNT? 

LAPLC0!JNT = LAPIC0UNT+2; 

IF EXPRESS $STX ( MPPl ) = BOOLEAN $TY?E TEEN 

do; 

CALL G-FNZRATE(N'OTX ) ; 

CALL GEN ikll ^ ( BLC ,L‘EELST ACX (Y? ' ) ; 

^ND ; 

ELSE CALL ERr.O? ( ' CE ' ) 

enl; 

/- 124 <TPUE PART> ::= <34 L STVT> -/ 

do; 

CALL GEN$ArrR(ERL,(LA3EL3TACK(SP-l)+l ) ) ; 

CALL G^N$ADDB (LBL ,LA3ELSTACX(S?-1 '' ) ; 

end; 

/- 125 <LAEEL rEE> ::= <L4SEL> : "V 

I^ LC0KU?iPN^ID(N'P,LA3L$ENTRT) TEEM 

do; 

CALL SSTADLRFTR(5) ; 

CALL SETADDRrTP (6+BYTEPTR ) ; 

CALL GEA'^ADBR(LBL,ArD??T?. ) ; 



end; 

ELSE CALL EBHOR( 'UL') ,* 

z' Q J fy'DT V •• = 



/- 


126 

• 


<SIKiPLE STKT> : : = 


<ASSIG^I^',E^'T ST^T> 




/- 


127 

« 




<PROCEDURE S7MT> 


❖ / 


/'•' 


» 

128 




<V,HILE STiYT> 




/'A- 


129 

• 




<REPEAT STr.T'' 




/- 


130 

• 




<FOR ST‘^T> 




/- 


f 

151 




<CASE STN’T> 


Ai/ 




» 

132 




<WITE STKT^ 


=;-•/ 
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/- 123 

f 

/■'' 13 *= 



'' <GOTO STr^'T'> 

^ <CO.y?OrND STrT> 



/ 



/- 133 
) 

/- 136 <^ASS IGN^ENT ST*^T> ::= <VA^IAT5LT> 
CALL aSSIG.'J$VaRI( MP.FALSE) ,* 

/- 137 <VAPIABLE> ::= <VARIABLE lE-fJT^ 



/■'' 133 



<VA?.IAELE> ^ 



=:=/ 

<FX??ESSIOM> -/ 
-/ 



/❖ 



/- 



/- 



139 " <VAPIABLE> [ <FXPRES LIST'^ 1 

co; 

TYPEiSTACX (f'iP) = (TYPE$STACK(MP) C? 4^3); 
TE^^?BASE, BASS = BASS$ LOG ( ^'P ) ; 

CALL SET$PAST$PN(9) ; 

EASE=AEI)R?TR,' 

CALL SETAELRPTR (5) ; 

IF BYTEPTP <> EXPiCTR THEM 
CALL ERROR ('XC'); 

CALL SETALLRPTRdS) ; 

^x??ctri=exp$ctr: 

DO V.HILE EX?$CTR1 >D; 

CALL GEM $ArrP (LDI I , ALERPTR); 

A^TPADDP = AFTPADBR 4: 

EXP'^CTRl = EXPiCTRl - 1,* 

EML : 

CALL SETADDRPTR( 11 ) ; 

CALL GENdLDRdDI I , ADLRPTR ) ; 

BASE = TE^PBASEt 
CALL S^T$?AST$PM (7) ; 

CALL GENADDR(LITA , ADDRPTR); 

CALL GEMERATE(SUB) ; 

CALL G”MERATE(EXPiCTR) : 

CALL SETADERPTP(9) ; 

BAS"^ = ADLRPTR; 

end; 

143 '' <VARIABLE> . <EI^LD ILE!v?> 

IE N^T LOOKU?$CNIY(SP ) THEN CALL ER-ORv'D-T'): 

ELSE do; 

BASE = LOOKUPdBDB; 

CALL SET$PAST$PN( 12) ; 

PBT$ADDR(t^P) = ADDRPTR + PP Ti ALEP ( ^.P ) ; 

CALL SET$PAST$?\'(9) ; 

CALL CASEPTRPTR ( BYTSPTR) ; 
i’YPE$STACK(lYP) , TYPE$STAC Y ( S? ) = PTRPTR; 

end; 

141 <VAPIABLS IEEMT> ::= YIDENTIEIERS 

do; 

VAPPAPN-! = false; 

IE NOT LOO\U?$CNLY(SP) THEM 
CALL ERRCR('DT'); 

ELSE CALL SSTiYAR$TYPE;/- LOOXUPdDDP SET -EP" 
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= <FX?RZSSICN> 



/* 

/❖ 

/'•!■ 



end; 

142 <EXPBFS LIRT> : : 
FXP$CTH=1 ; 

14.? 

FXP$CTR = FXP^CTP ^ 1 
144 <FXPRESSION> 



<'Sa^PFS LIST'^ , ^.FXPPESSIONX 
<SIM?LE FXP^ES3ION> 



■H 

=;v 



/''' 

/'•' 

/- 

/=■' 

/❖ 

/- 

/- 

/* 

/- 

/- 



145 '' <SIMPLE EXPRESS ION> 

145 <P.FLATIONAL 0?FRATCP'> 

145 SSIMPLE EXPRESSIONS 
CHK$EXPR$TY?E THEN CALL FINISRFLOP; 

ELSE CALL FRPOP.( 'CE' ) ; 

146 <RSLATIONAL OPERATOR> ::= = 

CALL SFT$OPiTYPF(0RH) ; 

147 "^ < > 

CALL SET$0P$TYFS(C9H) ; 

148 " < = 

CALL SFTiOPtTYPF(0AH) ; 

149 '' > = 



CALL SFT$OP$TYPF(03H) ; 

150 

CALL SET$0PiTYPE('2CH) ; 

151 

CALL SETiOPiTYPF( 0DR) ; 

152 

CALL SFT$OPiTYPF(0EH) ; 

153 <TERM> :;= <FACTOR> 



< 

> 

IN 



/ 

-V 

-'V 

'•V 

'''/ 

-'V 



1 

/- 154 ^ <TER^> <r^^ULTIPLTlNG OPERATORS <FACTOR>*/ 

do; 

IF READpiRMS TEEN 

do; 

APTRADER = PARMNU KLCC ( hP ) ; 

IF SHR(EYTEPTR,7) THEN 
CALL E?ROR( 'NE' ) ; 

end; 

IF CHK^SXPR$TYPE TEEN 

do: 

DO CASE TYPE$STACK(rPPl ) ; 

/-'C-V IF EXPRSSS$STX(SP) ^ IH TEEN CALL GENERATE ( NULI ) : 

FLS^ IF EXPRSSS$STX(SP ) = ?E THEN CALL NEF ATF ( K'LR ) ; 
ELSF IF EXPRESS$ST’r(SP) = 0F THE.N CALL GENFRA TF USFC ) ; 
ELSE CALL ERROR( 'CE'); 

/-I’-V I^ EXPRFSS$STK(SP ) = IE TE~N 

Eo; 

CALL GENERATE(CNVI ) ;/- C0NV2RT 1ST INTEGER */ 
CALL GENERATE ( CN2I ) ;/- CONVERT 2ND INTEGER -^ / 
CALL GFNERATF(DIVP ) ; 

EX?RSSS$STK(N'.P) = UN S IG N SEXPON ; 

END; 

ELSF IF EXPRSSS$STK(SP ) = 5K T^tf.N CALL GlNEP A TF ( rl V3 ) ; 
ELSE CALL ERRCR('CS'); 

/-2'V IF EXF?ESS$STK(SP )=INTEGFR$TY?E THEN 

CALL GENERATE (DIVI ) ; 
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^ .^L.SE CALL ER?CR('CZ'); 

/-o"7 I? IX?BESS^ST::(SP )=I'ITEC-T^R$TYPE TRI': 

CALL G^^■?^J.TE(^’OEX ) ; 



ELSE CALL ERROR ( 'CE ') : 

/-4V EX?^ESS$STiC(SP )=BCOLEAN $TY?E THIN' 

CALL GENERATE (A NDX ) ; 
ELSE CALL SRROR( 'CE ') ; 
end; /- OF CASE VAR$TYPEiSTX -/ 

end; 



ELSE CALL ERRCK('CE'); 

end; 



/ - 155 
CALL 


<r^ULTI PLYING OPERATOR> 
SET$OP$TYPE(00H) ; 


* m 




/- 156 
CALL 


SET$OPiTY?E(01H) ,* 


'' / 




/- 157 
CALL 


SET$OP^TYPE(02H) ; 


DIV 


-/ 


/- 156 
CALL 


SET^OF^TYPE(03F) ; 


MOD 




/- 15 9 
CALL 


SETiOP^TY?E(04E) ; 


AND 




/- 160 
• 


<SIMPLE EXPPESSIONA ::= 


<TERM> 




161 




<SIGN> <TERM> 





do; 

IE REAIPA’5^^S THEN LO; 

APTRADDR = PAPr.NLTLOC ( S? ) ; 
IE SERfBYTEPTR,?) THEN 
CALL E?.ROR( 'NE' ) ; 



END ; 



IE SIC-NTYPS = MEG TEEN 

do; 

IE EXPRESSsSTKS?) = UNSIGNiEXPON THEN 
CALL GENERATE (NEGE ); 

ELSE IE EX?PESS$STX(S? ) = IN TEG ER$ TYPE THEN 
CALL GENEFATE(NEGI ) ; 

ELSE CALL ERROR('UO'); 
end; 

SIGN$ELAG = IALSE; 

CALL COPY$STACXS (MP ,SP ) ; 
end; 

162 '' <SIKPLE EXPPESSION> »V 

/* 162 <ADLING OPERA TOR > <TTERN.> / 

do; 

IF READPARrS '^»EN DO,* 

APTRADDR = PARMN U^'LOC ( MP ) ; 

IE SHR(3YTEPTR,7) THEN 
CALL ERROP.( 'NE') ; 

END ; 

IE CHK$EXPR$TYPE THEN 

do; 

IE TYPE$STACX(I^PF1)=5F THEN/- APITH ADD -/ 

DO CASE EXP?ESS$STK(SP) ; 

CALL GENERATE (UNI ON ) ; /- CASE 0 - ORD TYPE V 
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TALL G2N2PATE (AEDI ) ; /* CASE 1 - INTEGER "V 

CALL ZEKCR( 'CE' ) ; CASE 2 - CHAR -/ 

CALL GENERATE(ADDP) ;/- CASS 3 - REAL =V 
CALL ERROR( 'CE');/- CASE 4 - STRING -/ 

CALL ERROR( 'CE');/- CASE 5 - BOOLEAN =V 

ene;/- case -/ 

ELSE I? TYPEiSTACAf I'^PPl )= 6H THEN/- ARITE SUETP.C -/ 
DO CASE EXPRESS$STK(SP) ; 

CALL GENERATE (STDIF);/-' CASE 0 - ORE TYPE -/ 
CALL GENERATE(SUEI ) ; 

CALL ERPOE( 'CE' ); 

CALL GSNERATE(SUBB) ; 

CALL ERROR( 'CE'); 

CALL ERROR('CE'); 

end; 

ELSE IE TYPE$STACK(.Y’’P1 )=7H THEN/- lOOLEAN OR -/ 

do; 

IF EX?RESS$STK(SP ) = BOOLEAN STYPE TEEN 
CALL GENERATE (BCR ) ; 

ELSE CALL ERROR( 'CE ') ; 

end; 

END ; 

ELSE CALL ERROR ( 'CE' ) ; 



iL L' t 

/- 163 <AriING OPEPATOR> ::= + -/ 

CALL SETtOP$TYPE(05H) ; 

/* 164 '' - 

CALL SET^O?$TYPZr06H) ; 

/-' 165 ''or -/ 

CALL SET^OPiTYPE(07H) ; 

/- 166 <FACTOR> ;:= <VARIABLE> */ 

IE (T?OH?<$EIELD(r^P) = 05H) OR ( FO?r;$ ?I ELD( :/? ) = ^DH) "HEN 
CALL CALL$A$PROC (FALSE); 

ELSE 

"call load$vari (sp) ; 

16'’ '' <yARlABLE> ( <ACTUAL PAPA LIST> ) -/ 

CALL CALLiA$PROC(TRUE) ; 

/- 168 '' ( <EXPRESSICM> ) -/ 

CALL COPYiSTACKS(MP, rpPl); 

/=:= 169 '' <SST> ■-/ 

170 '' NOT <EACTOR> -/ 



do; 

I? EXPRESSiSTK( SP) = BOOLEAN $TYPS THEN 
CALL GFNi:RATS(NCTX) ; 

ELSE CALL ERROR ( 'CE') ; 

CALL CO?Y$STACKS(.Y?,SP): 

end; 

/=:' 171 '' <NUMBSR> -/ 

IE TVPENUiY=INTEGERiTYPE TEEN 

do; 

EXPRESS$STK(SP) =I NTEGER$ TYPE ; 
ALLCiCTY=C0NVE?TI(S?,P03 ) ; 

CALL GENSACDR(LriI ,ALLCiCTY) ; 
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, I 



t 



/- 



/- 

/- 

/■■' 

/- 

/- 

/- 

/- 

/- 

/❖ 

IF 



F.\’T' : 

FLSZ do; 

2X?FESS$3TK(S?) =UNS lGN$SX?ON ; 
CALL GONYHTECrfSP,POS ) ; 

CALL GFN2RATZ(IDI3) ,* 

DO PTR?TH = 0 TO t^cdsIZS-I; 

CALL G2NERA?F(BCrNUM(PTRPTR) ); 

end; 

end; 

1?2 . '' NIL 



173 '' <STRING> 

do; 

EX’=RESS$STK( S?) = STRINGiTYPE; 

CALL GENERATE (LDSI ) ; 

DO FOR EYE?.; 

DC PTRPTR = 1 TO ACCUM(O); 

CALL GENERATE(ACCUK(?T?PTR ) ); 

end; 

IF CONT THEN/- STRING > 32 CHARS -/ 

CALL scanner; 

ELSE do; 

CALL GENEPATF(NOP) ; 

RETURN ; 

ENI ; 

end; 

end; 



174 <ACTUAL PARA LIST> ::= ^ACTUAL PARAS 
PARy.NrN!(SP) = i; 

175 <ACTUAL ?A?A LISTS . 

175 AACTUAL PARA> 
PaR;^.NUY(*^P) = ?AR'N:NUK(N.?) ^ i; 

176 <SETS ::= [ <ELENENT LIST> ] 

CALL CO?Y$STACXS f MP , KPPl); 

177 <ELFMFNT LIST> ::= 

CALL COPYiSTAGKS(SP, SP-3); 

178 '' <XELEYENT LISTS 



179 <XELFY.ENT LISTS ::= <ELEYENTS 



IS^" '' <XELE^ENT LISTS , <ELSf^ENT> 

I^ EXPRESS$STr:(KP) <> EXPRES S $ ST'^ ( S P ) THEN 
CALL ERROR ( 'ET') ; 

181 <FLEMENT> ::= <EXPR^SSION> 



182 '' <EX?FESSIOMS .. <EX?RFSSICN> 
EXPRESSSSTK(MP) <S EXPRESS $STK ( S? ) THEN CALL ERROP('ET 

183 <GOTO STMTS ;:= GOTO <LA''EL:> 

IE LOOKUP$PN $IL(SP .LAELiENTRY ) THEN 

do; 

CALL ST^TA DIRPT? (5) ; 

CALL SETADr?.?T?(6+ElTEPTR) ; 

CALL GFN^ADDR(3RL,ADDPPTR ) ; 

end; 



-/ 



=;v 

-/ 

=:-/ 

-7 

=•7 

); 
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I 



JLSZ do; 

C/LL D^.ROR ( 'UL ' ) ; 

C^LL GRNrRATE(NOP); CALL GFN EP 4.TE ( NOP ) ; 



END ; 






/- 184 

• 


OCC^POUND STr*'iT> ::= BEGIN <STHT 


LISTS'" END 


f 

/■•' 165 

• 


<STMT LISTS> ::= <STU.T> 




/- 196 

• 


<STN1T LISTS> ; 


<STU:T> 


> 

1£7 


FP^OCEDUHF STr"T> ::= <PPOCFDURE 


IDENT'> 


CALL 


call$a$prcc(false); 




/- 168 


<PROCEDURE 


IDENT> ( 


186 


<ACTUAL PARA LIST> ) 



FOR^■$^IELD(^'.?) = BUILTiPliPFOC T'r'FM 
CALL CALL$A$?POC(FA LSE ) ; 

FLSS CALL CALL$A$?ROC (TRUE ) ; 

/- 189 <PEOCFDURF IDENT> ::= <irFNTIFIFR> 

do; 

IF NOT LnOKUFS^NLY(SP) THFN 
CALL ERROR ( 'UP' ) ; 

ELSE do; 

PASELOC(SP) = L0C'CUP$AIDR; 

CALL SFTADDR?TH(4) ; 

FORf^$FIELD(SP) = 5YTEPTP ; 

IF FORY$FIELr( S^) = SU ILT$ IN iP^OC THEN 

do; 

CALL SET$FAST^PN(7) ; 

I? BYTEPTR = 28 THEN 

do; 

PARrNUH(SP) = 2 ; 

PA?^NUUiLCC( SP ) = APTRAIDR ^ i; 

end; 

ELSE IF BYTEPTR / 21 T-EN 
DO CASE ^BYTEPTR -22); 

mea$stiYT = true; 

DISPOSF^STU’T = true; 

rsal^sT'^t = true; 
read^sti^t = true; 

V:P.ITE^ST^■T = TRUE; 

%RITE*ST^T = true; 

END; /- OF CASE (BYTEPTR - 22) -V 

F IN D ; 

ELSE NOT BUILT IN -V 

CALL SET^?AST$PN(7) ; 

PAR^NUU(SP) = BYTEPTR; 

CALL SETS?AST*PN(P); 

FAR^'NUULOC(SP) = ALDRPT®; 

APTRADER = APTRALDR + e; 

LABELSTACK(SP) = AEDRPTR; 

FEADPAPUS = true; 

PAPMNUMLOC (SP^2 ) = PARUNUf^LOC ' S? ) ; 

ENI; 
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fnd; 

19d <ACTU4.L ?ARA^ <FX?RISSI 0 N> -/ 

IF RSAE^ST'^T THS^l CALL RSAE$VAH; 

FLSF IF WPITZ$STKT THI.J CALL WR I T^$ VAR ( 0 ) t 
SLSF IF ^’0T(READPAP^'S) THFV 

rc: 

RFALPARf^S = THUF; 

CALL GFNIRATF(PARr^X) ; 

/-PARAYFTFR IS AfJ EXPRESSION VALUE -/ 

end; 

191 '' <FX?RE3SICN> : <"E:':??FS SICN> ’V 

IF N^T V;■RI7ESST^"T THEM CALL ERi^O? ( 'PS ' ) ; 

ELSE DC; 

IF EXP?ESSiSTK(SP) <> I N"^EGER^TYPE T-^EN CALL EFRC? ( 'VP ' ) ; 
CALL V/RIFESVAR(1) ; 

end; 

/- 192 '' <EXPFESSICN> : <E7P?E3SICN> ; 

/- 1P2 <EXPRSSSION> ■-'-/ 

I^ MOT ’a/RI?ESSTR:T THEN CALL EPROR('PE'); 

EL3E do; 

IF EXT^RESS$STK(M?) O UNSIGN<EXPON TREN CALL ERR0P('?T'); 
IF (FXPR^SS^STX(SP) <> INTtC-RR^TYFF ) AMD 
(EX?PESS^STK(3F-2) <> I NTEGSR^TYPE ) TREN CALL FR? 0 R('W?'); 
CALL V'RITE<VA?(2) ; 

end; 

/- 193 <CASE 3 T^’T> ::=<CASS EXPRFSS^<CASE LIS^ FLI'^T LIST>-/ 
/- 193 END -V 

do; 

LAPLCOUNT = LARLCOUMT + i; 

CALL GSM$ArLR^!EL,LA£ELSTAC-'^(^?)) : 

CASF5C0UNT = CA3SSC0UMT - i; 

end; 

/■-s 104 ^CASE EZFRE33> ::= CASE ^EXPRES 3 1 Oi\> OF */ 

do; 

casf$stn-t=t?ue; 

IF UXPPESSiSTKff^PPl ) = UMS IGM$EXP0N ) 'iHEN 

CALL EPPOP^ 'RT' ) ; 
LAFEL3TACK(NP J = LARLCOUNT; 

LAPLCOUNT = LA PI COUNT + i; 

CASE$STX (CASE$CCUNT := CASE$COUNT - l) = 0; 

end; 

/* 195 ^CASE LIST ELSN!T LIST> <CASE LIST ELFUENT^ -/ 

IV CASF$STMT THEN 

do; 

CALL GENSALLR('E?L,LARELSTAC:< (M?-1 ) ) ; 

C A LL GVN $ ADDF ( L 3L , ( LAPELS TAG ?: ( N'P ) +1 ) ^ ; 

end; 

/=:• 196 '' ^CiSE LIST ELFUT LIST> ; --.V 

/- 196 <CASS LIST FLFYENT> -/ 

IF CASEiSTNiT THEN 
do; 

CUL GFN$ADLR(3RL,LAB^LSTACK(M?-1 ) ) ; 

CALL C-EN$ADDR(LFL, (LA3SL3TACK(S?)-1 ) ) ; 

END ; 
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/- 


1 97 


<CASE LIST FLEVENT'> ;: = 


7/ 




CASE 


$3T,v'T = false; 




/* 


196 

• 


<CASE PRE^IX> <STKT> 


7/ 


/- 


f 

1 99 


<CASE PREFIX> ::= <CASE LABEL LIST> : 


7/ 




do; 








CALL GEN$ALDR(PRL, ( LAESL3TACK( K?) +1 ) } ; 

call g^n$adde(lbl,la3elstac:<(m?) ) ; 






end; 






/- 


200 


aiTH ST^^T^ ::= <VITH> <pEC VARIABLE LIST> <DO> 


7/ 


/'•' 


200 

• 


<BAL STf^T'> 


-•7 


/7 


> 

201 


AVITH> :;= VITH 


7/ 


/- 


202 

• 


<?EC VARIABLE LIST> : : = <VAPIABLE> 


7/ 


/=:< 


203 


^REC VAHIAFLS LIST> , 


7/ 


/- 


203 

• 


<VAPIABLE> 


7/ 


/- 


f 

204 


<ro> ; := LO 


7/ 




do; 








la 


SSLSTACX(SF) = LABLCOUNT; 





CALL G^N$AEDP(BLC .LAiJZLSTACK (S? ) ) r 
LAPICOUNT = LAPLCOUNT + i; 

ENT ; 

/- 205 <yHILE SThT> : : =<V,HI LE><EX??ESS ICNXI 0><^ AL ST'-T^ -V 

do; 

CALL GIN$ALLP.(B?L,LAiELSTACE^'^?) ) : 

CALL C-7NAALDH(L3L ,LA3rLSTAC:<(S?-l ) ) ; 

end; 

/- 205 AUHILE> :;= VEILS */ 

DC; 

LA3ELSTACE (3?) = LABLCOUNT; 

CALL GVM$ALLR(ael,TAESLSTACK(S?) ) : 

LA3LC0UNT = LA3LC0UNT + i; 

end; 

/■■' 207 <FOR STKT> ::= E^P<CONTPO'L VA7I;eLE> :=V?0? LIST - ■•- / 
/- 207 <DO> <3AL STKTN -/ 

Bo; 

call GENiABBR^I^L, (LAEELSTACK(S?-2)+1 ) ) ; 
call gen $ add? (L3L, labels tacx(s?-i : ) ; 
end; 

/'■- 20P ^FOP LIST> ::= <INITIAL VALU?> <TO> ^FINAL VALUEA-'V 

co; 

IE EEIPRESS $STE(r?) <> EXPHESS$ST-: ' SF ) TEEN 

CALL E?.?C?.( "ET' ); 

CALL GEMEPATE(GECI ) ; 

end; 

/7 20P '' <INITIAL VALUFA <LOV.NTO> ^ FINAL VALUE'- "V 

do; 

IF EXPHES3$STK(r<?) <> FXFPESS $ST'-^ ' 3? ) THEN 

CALL ERROR('ET'); 

CALL G^N^RATE(LECI ) ; 

ENL ; 
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i 



/- 2^3. <COMT?OL VAF.Ii'ELF'/ ::= < 1 27.\ TI ~I I - / 

VARPAp^ = falsf; 

ir NOT LOO?CUPiO\LY(SP) TPPiV 
CALL ERROR ( 'CV ') ; 

T^LSF ro; 

APTRADD^ = LOOKUP $ALrR ^ A; 

IP PYTEPTR IBP THEN CALL ERROR ( 'CV'); 
ELSE CALL SET$VAR$TYPE ; 

end; 

end; 

/- 211 < INITIAL VALET’S ;:= <EX?RES SIGNS 

do; 

CALL ASSIC-N$VAPI (3P-2, TRUE); 
LABELSTACK(Sr ) = LABLCOUNT; 

latlcount = la-lcount + 2 ; 

CALL C-S*l$AriRfIRL,LAEELSTACK (S?) ) ; 

CALL C-EN$ADDR(L3L .(LABELS TAG '■^(SP)+1 ) ) ; 
CALL L0AD$VARI (SP-2 ) ; 





end; 




/❖ 


212 


<EINAL VALUEO ::= <EXPRESSICNS 


/❖ 


213 


PREP EAT STMT> <REPEATS <STMT LISTSS 


j /'•' 


213 


<EX?RES SIGNS 




do; 




1 


IE 


EXPRESS $STK( 5?) = EOOLEA\'$TYPE THEM 



do; 

CALL GENERATE ( NOTX ) ; 

CALL GEN $ALLR( BLC .LABELSTACK (r^P 1 ) ; 

^nd; 

ELSE CALL ERR^R ( 'CE " ) ; 

end; 

/•'' 214 <RE^EATS ::= Rt-RIAT 

do; 

CALL GEN$ALDR^LBL .LAiLCOUNT) ; 
LABELSTAGX(Sr )=LARLC0UNT; 

LABLCOUNT = LARLCOUNT + i; 

end; 

/- 215 <TOS ::= TC 

do; 

CALL GENERATE (I NC ) ; 

C»LL GEN$AEDF(L3L,LA3ELSTACS(S?-1 ) ) ; 

end; 

/■\‘ 216 <r0V.NTC> DOV NTO 

do; 

CALL GENERATE (DSC ) ; 

CALL GEN$AILR(TBL .LABELSTACK (SP-l ' ) ; 

end; 

end; /- or case statement -/ 

END synthesize; 



/ 



=:=/ 






-.;v 



■'V 






END SYNTH2; 
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CECOBS .S -C 



DECOIE:rC; 






declare 






LIT 


LITERALLY 


'literally ' , 


FCE 


ADDRESS 


IN ITIAL (5CH) . 


ecr$rytp 


RASED 


PCR (1) BYTE, 


I 


PYTE, 




F0H 


BYTE 


IN ITIAL (0F0R) 


DPCI (3 ) 


BYTE 


IN ITIAL (64H.0 


TRUP 


LIT*^ 




FALSE 


LIT 


' 0 ', 


ADDR 


ADDRESS 


INIPIALdOr^H) 


CFA? 


BASED 


ADDR PYTE, 


ICL 


LIT 


'DECLARE'. 


EXT 


LIT 


'external' . 


ppoc 


LIT 


'PROCEDURE ' . 


BUFF 5 END 


LIT 


'0FFH', 


BCDNUM(e) 


byte; 




hONl : PROC (FUNC, INFO) EXT; 




DCL FUNC 


BYTE, 




I N FO 


ADDRESS ; 




END r^oNi; 






f^.ON?: PROC f FUNC , IN FO) BYTE 


EXT ; 


DCL FUNC 


BYTE. 




INFO 


address; 




END I^CN2; 






PCOT; PROC 


ext; 





END boot; 



PRINTiCHAR; PROCEDURE (CHAR): 
D'^CLAPT^ CHAR BYTE; 

CALL KONl (2, CHAR) J 
END print^char; 



CRLR: PROC; 

CALL PRINT^CHAR (13) ; 
CALL PRINT$CEAR( 10) ; 

END cplf; 
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F: procedu^Kadci ) ; 

LiCI^RE AEDl ALERESS, C EASE! /ELI '1) SYTE; 
CALL CP.L^; 

DO 1=3 TO 4 ; 

CALL ?RINT$CHAP(C( I ) ) ; 

END ; 

CALL P?INT^CEAF.( ' ' ) ; 

END ?; 



C-ET$CHAR: PROCEDURE BYTE; 

IF ( » DDE :=ADDR + 1 ) > EUFF^SND T^^^N 

ro; 

IF iY0N?(23,^C3) <> 3 THEN 
Eo; 

CALL ?( . ( 'END ' ) ) ; 

end; 

ADDP=8'3E; 

end; 

RETURN chap; 

END get^char; 



WRITERS TP IMG: PROCEEUPS; 

DECLARE J byte; 

DO v;hile 1 ; 

J = GET $c ear; 

IE J <> 30E TE^N CALL PR I N T5 CH AP ( J ) ; 
ELSE return; 

ENE ; 

END w?ite$stpi.ng; 



E'$CEAR: PROCEDURE ( OUTPUT ARYTE ) ; 

DECLARE OUTPUT^BYTE BYTE; 

IF OUTPUTiBYTE < 13 THEN CALL PR I NT ACHAR OUTPUT A t>yte ^ 

‘7’ 0/ T? ^ • 

K. \cj r: » 

T^LSE C»LL PPIiNT$CHAR(CUTPUT$3YTE + 37H); 

END dAcfar; 



D: PROCEIURE (COUNT); 

D^^CLAPE (COUNT, J) ADDRESS; 

DO J=1 TO COUNT; 

CALL DACHAR( SER(GETACHAR.4) ) : 
CALL D$CHAPfCHAR AND 3EH ) ; 
CALL RRINTACHAP( ' ' ) ; 

END ; 

END d; 
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I 



PHlNT^PCr-: P’OCFIURF (COUNT); 
DCL (COUNT, J,L,K) rYTS; 



P^EXPON: PPOCcDUPZ(VALU-) ; 

DCL (VALUE, X, COUNTl ) ^YTE; 

DCL ELAC- EYTS; 

DO X = 3 TO 2 ; 

FLAG = false; 

COUNTl = 3UE; 

DO '■’HIL^ VALUE >= DECI(X); 

VALUE = VALUE - LSCI^X); 

FLAG = true; 

COUNTl = COUNTl +1 ; 

end; 

^LAC OH (X >=•• 2) teen 

CALL PHINTiCEAH (COUNTl ) ; 
ELSE CALL ?HINT$C?AR(' '); 

^nd; 

hetupn; 

END p$expon; 



DO L = 0 TO ( CCUNT-1 ) ; 
?CDNUU(L) = get^char; 



end; 

C&LL PHI.NTiCEAiU ' '): 

IF 3CCNUN' (COUNT-1 } >= SCH THEN CALL PP I N Ts CHA? ( ' - ' ; : 
ELSE CALL ^HINT$CHAR( ; 

CALL PRI.NT^CHAR {'0')', 

CALL PHINT^CHAP( ' 

DO L=0 TO COUNT- 2 ; 



J,K = 3GDNUU(L) 
K = SHR ( (K AND 

;!i 5 '- 



F0H),4:); /- extract '^HE N:SD EM 



?Jc i*i 






%*# %•# 

#1* 



vl# 



PYTF 

#1% ^1% #1% ^1% #1% 



CALL D$C?AT’(S); 

J = (J AND 0FH); /^' extract T^E LSD FN: TE^ BYTE -/ 

CALL d$char^j); 

end; 

J,K = (?CDNUM(COUNT-l ) AND 7FH ) ; /- GET RID OF SIGN -/ 
IF K >=40H THEN CALL PRINT^CEAR ( ' + ' ) ; 

ELSE call PRItJT^CHAP( /* SIGN OF EXPONENT -V 
CALL PRINT^CHAR ( 'e') ; 

CALL P$EXPCN<'K AML 3FH); 

END p^intsbcd; 



PRINT$REST: PROCEDURE; 
D'J’CLAPE 
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END? 


LIT 


'IH', 


FOLS 


LIT 


'23H' 


NECS 


LIT 


'24?. ' 


LRL 


LIT 


'2H' , 


LDII 


LIT 


'4^', 


ALL 


LIT 


'OBH' 


LITA 


LIT 


'OCR' 


RRL 


LIT 


'3EH ' 


PLC 


LIT 


' -n rr ^ 

r ii 


PRO 


LIT 


'5E'. 


ANDX 


LIT 


'32H' 


BOR 


LIT 


✓ ^ /- 

c. on 


PARK 


LIT 


'43H' 


PAPrV 


LIT 


'44H ' 


LDIB 


LIT 


'3H' , 


W^=TR 


LIT 


'53H' 


V'PTI 


LIT 


'54H' 


ypTS 


LIT 


'55? ' 


LDS I 


LIT 


'43? ' 


EASE 


LIT 


'4CH 


IE CHAR = 


END? THEN 




do; 






CALL 


P ( . ( 'E^'D 


')); 


CALL 


boot; 





end; 

IE (Ct^.\E=WRT^) 0 ? (CHA?=WRTn On 

^CrAR='>'?.TS ) TFEN DO ; CALI D(l); RiruRN; ENL ; 

IE (CRAP=LRL) 0 ? (CEAR=LDII) 0 ? (C?AR=ALL) OR (C^A?.=LITA' OR 
(Cr:A? = B^.L) OR (CPAR=?LC) OR (C"-^AR=?? 0 ) OR 

fCHAR = PARr) OP (C-AR=?ARr^V) THEN 10 ; 

C&LL D( 2 ); RETURN; END; 

IE C^'A-O = EASE THEN DO; CALL 1 ( 4 ); PETURV ; END; 

IF CHAR = LLIE TFEN LO; CALL PRI N T$ R Cl ^ c ^ ; RETURN; EN E ; 

CHAP = LDSI T^E.N DO; CALL >'R I TE$S TP I NO ; RETURN; END; 

RETURN ; 

END PR I interest; 



P^OGPAr EXECUTION STARTS ^EP E 
MAIiNLP'E: LO ; 

I^ N'CN 2(15 ,^CR) = T^EN 

D^; 

CALL ^^ ( OJO FITE FOUND')) ; 

CALL ROOT; 

end; 

DO UEILE l; 

jv CrET^CFA? <= 72F. THEN 
DO CASE cfar; 

CALL ?( .( 'NO? ')) ; 
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CALL 

C^LL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 



P(.('LLI3 ')) 
?(.('Lni ')) 
?(.('?P0 ')) 

P(.('^TN ')) 

?( .( 'SAVP ')) 
?( .( 'UNSP ')) 
P(.('C^'VB ')) 
?(.('Cr<’VI ')) 
?(.('ALL ')) 

?(.('LITA ')) 
?( .( 'AEDB ')) 
P(.('ALDI ')) 
P( . ( 'SUB? ' ) ) 
?(.('SUBI ')) 
P(.('r^.UL3 ')) 
P(.('^;ULI ')) 
P( .( 'LTVP ') ) 
?(.('DIVI ')) 
P(.('hnDX ')) 
P(.('ECLI ')) 
?(.('N?CI ')) 
P(.('LFOI ')) 
?(.('C-FOI ')) 
P(.('LSSI ')) 
P(.('r-EP.I ')) 
P(.('XIN ')) 
P( . ( 'EOLB ' ) ) 
?(.('N'ZOB ')) 
P(.('IECB ')) 
?( .( 'c-roB ')) 
?( .( 'LSSB ') ) 
^( .( 'CPTB ') ) 
P(.('ECL3 ')) 
P(.('NE03 ')) 
?f.('LEOS ')) 
P( .( 'GEOS ') ) 
P( .( 'LSSS ')) 
?(.('C-RTS ')) 
P( .( 'ECSIT') ) 
?( . ( 'MEOST') ) 
P( .( 'INCLI')) 
?( .( 'IMCL2' ) ) 
?( . ( 'MEGB ') ) 
P(.('f'EC-I ')) 
?( . ( 'CCr3 ' ) ) 
P(.('C0MI ')) 
?(.('NCTX ')) 
P( .( 'ANDX ') ) 
P(.('^OH ')) 

P( .( 'STOB ') ) 
P(.('STOI ')) 
P(.('STO ')) 



2^0 



CALL ?( . ( 'STE3 ' ) ) ; 
CALL P( .( \STLI ')): 
CALL P( .( 'STD ') ) ; 
CALL P( . ( 'UNION' ) ) ; 
CALL P ( . ( 'STDI7' ) ) : 
CALL P( .( 'IST^C ') ) ; 
CALL P( .( 'CNAI ')); 
CALL o( .( 'BRL ')): 
CALL P( .( '^LC ' ) ) ; 
CALL P( . ( 'CN2I ' ) ) ; 
CALL ?( .( 'UKSST') ) ? 
CALL P( . ( 'XCHC- ' ) ) ; 
CALL P( .( 'PAHU ') ); 
CALL T=( .( 'PARMV') ) ; 
CALL P( .( 'PARi^X') ); 
CALL ?( . ( 'INC ' ) ) ; 
CALL P( .( 'DEC ')); 
CALL P( .( 'DLL ' ) ) ; 
CALL P( . ( 'V.PT ') ) ; 
CALL ^( . ( 'SU5 ' ) ) ; 
CALL P( .( 'LDSI ') ); 
CALL ?( . ( 'CASE ' ) ) ; 
CALL P( .( 'LCD ') ) ; 
CALL ?( .( 'LCDR ' ) ) ; 
CALL P( . ( 'LODI ') ) ; 
CALL P( .( 'RIV5 ')) : 
CALL P( . ( 'PLVI ' ) ) ; 
CALL P( . ( 'FDVS ' ) ) ; 
CALL P ( . ( ''-'PTB ' ) ) ; 
CALL ?( .( 'ypTi ' ) }; 
CALL ?(.( 'VRT3 ')) ; 
CALL P ( . ( 'LUf^P ' ) ) ; 
CALL P( . ( 'A^S ' ) ) ; 
CALL P( . ( 'SCR ' ) ) ; 
CALL P( .( 'SIN ')) : 
CALL P( .( 'CCS ' ) ) ; 
CALL ?( .( 'A°CTN') ) ; 
CALL P( .( 'FX? ')); 
CALL P( .( 'LN ' ) ) ; 
CALL ?( . ( 'SCRT ' ) ) ; 
CALL P( . ( 'OLD ' ) ) ; 
CALL P( .( 'ECLN ') ); 
CALL ?( . ( 'EXF ' ) ) ; 
CALL ?( .( 'TPUNC') ) ; 
CALL P( .( 'POUND')) ; 
CALL ?( .( 'CPD ') ) ; 
CALL P( .( 'CHR ') ); 
CALL P( .( 'SUCC ' ) ) ; 
CALL p( . ( 'ppsr ' ) ) ; 
CALL P( . ( 'SEEK ' ) ) ; 
CALL P( .( 'PUT ' ) ) ; 
CALL ?( . ( 'GET ' ) ) ; 
CALL Pf .( 'RESET') ) ? 
CALL P( .( 'PEV/RT' ) ) ; 



231 



C4 LL 
CALL 
CALL 
CALL 
CALL 
CALL 



I ml: 

ELSE 
CALL 

emd; 

E\'D KA inline; 
EWL rSCOLE: 



P ( . ( 'Ti 1 ' ) ) 

P L ( ' NE>; ' ) ) 

?( .( 'rispz')) 

P(.('7WL ')) 

P( . ( 'XTRNL') ) 
P(.('PLV ')) 



CALL P( . ( 'llZl 

ppivt$rest: 

/- OF LO v;hilf 



)) 



/■'' OF CAS'P’ STATENFiJT -V 



2 e? 



SYK'I'ABLE .SRC 



$PA^E';'irTH (£2 ) TITL^('SY'^ - SYMBOL TABLE PRINT UTILITY'') 



-LIMK SYU.OBJ,TRI^T.OBJ,PLU,e0.LIB TO SYNI.LNK 
-LOCi'^F SYf^.LNK CODE(103E) 



%•# Vi# H*# 

#1^ ^1^ >1*^ #1^ #1^ >1% ^1% #1^ >1^ #1% #1% #1^ #J% 



n' 



SYr^BOL^TABLFiPR INTOUT 



V^ V# V# V^ ^*# V# V# V# %i# 

#1% #1% #p #p #1^ #1% #1% #1% #1% #1^ ^1^ 



#|C #1^ #^C #|C ^1% #1^ # 



THIS PPOCrRAN! TAKES THE OUTPUT FPON'. TH^ PASCAL SYN*^CL TAf>LE 
AND CONVERTS IT INTO A READABLE OUTPUT TO FACILITATE 
DEEUCGINr . 

❖ / 



SYiHrDO; 



DSCIAPE 



LIT 


LITERALLY 


'LITERALLY ', 


EXT 


LIT 


'EXTERNAL ' , 
INITIAL ^5CH), 


FCB 


ADDRESS 


ADDE 


LIT 


'ADDRESS ' , 


FCBiBYTE 


BASED 


FCB (1) BYTE, 


DECI5 (5) 


AD DR 


iNiTiAL(i?eeo,i0ro.ie 


DFCI(3) 


BYTE 


I.'JITIAL(1^0,10,1) , 


I 


BYTE, 




TRUE 


LIT 


'1', 


FALSE 


LIT 


'0^ 


COPYING 


BYTE 


INIT lAL(Tpri) , 


AIDRl 


ADDRESS 


INITIAL fl?0E), 


CHAR 


BASED 


ADDPl BYTE, 


BUFFiEND 


LIT 


'0FFE ' , 


FOR '"MASK 


LIT 


'0'Ap ' , 


DCL 

DCL 


LIT 


'DECLARE'; 


PRCC 


LIT 


'PROCEDURE ' , 


EO^FILLER 


LIT 


'HE' , 


BCDNUM(8) 


BYTE, 




FILE^TYPE^U) 


BYTE 


data('s','y'.'m' 


FORM 


BYTE , 




TABLE is TART 


A DDR, /- STAR 


TING LOCATION AT CO'-'PILA' 


OFFSET 


A DDR, /- NEW 


VALUE OF TABLE ENTRY -/ 
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?A?^-$LISTIN" (1? ) APDR, /- LOCATION C? SU3PTN ^ORr'AL P^RA^’ 

IISTINC -/ 

SUBPTN BYT^ INITIAL(5'), 

?ARKiNUM(10) BYTB, /'■' KPEPS COUNT OF NUUBE? OF PAPAPETERS -/ 
SAVFSEASE ADIR, /- SAVES EASE LOCATION 

LPN BYTE , /- LENOTH OF PPINTNAINE '- / 



BASE ALDR ./-BASE OF CUPPENT ENTf^Y-/ 

SBTELTOP ALLR, /- CURRENT TOP OF TAELE f SY^" 



SBTBL 



ADDR , 



L 

PTR 

APTRAEDP 

ACDPPTP 

EYTEPTR 



ALLR, /-LENGTH OF SYl^^OL TABLE-/ 

EASEL EASE EYTE./-1ST BYTE OF ENTRY-/ 
ADDR,/* UTILITY VAP FOP TABLE*/ 

BASED APTRADDP ADLR, 

BASED APTRAIER BYTE, 



P-I.NTNA/E ADDR,/* SET PRIOR "^0 LOCEUP OP ENTER */ 

SYt^HASP ^YTE, 

LAST$SBT2L$ID ADD?., 

PARAr^NUN’LOC ADDR, 

SBTBL3C0FE ADDR; 



MONl: PROCSLURE (E.A) EXT; 

DECLARE ^ BYTE, * ADDRESS; 
END ^^0N1 ; 



iNCM?: PROCEIURE (E,A) BYTE EXT; 

DECLA^JE F BYTE, A ADDRESS; 
END f/QN2: 



BOOT: PROG EXT? 
END boot; 



PRINT$CHAR: PROCEDUPE (CHAR); 
DECLARE C^^AR BYTE; 

CALL ^ONl (2,CEAR) ; 

END rointscear; 



CPLF: procedure; 

CALL PRINTiCEARaU) ; 
C^LL PPINTiCHAR(ie); 

END c^lf; 



PRINT: ?POC(A); 

DCL A addr; 
CALL UONl (9.A) ; 
END print; 
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i GBT$C“AR: PROCBBURE 3 YTi; 

; IF (ABDRl :=ADI;R 1-^1 ) > BUFF^END TrfN 

1 do; 

\ K 0 \'?( 2 e ,^CB) <> 0 then 

' do; 

CALL PRINT (.('THE ENL $')); 

^nd; 

AED^ 1 = 33 H; 

end; 

I RETURN char; 

END cet^char; 



D^CHAR: PROCSDURE( CUTPUTiBYTE ) ; 

DECLARE OUTPUTi^YTE BYTE; 

IF OUT^UTiBYTE < 10 TEEN CALL PR IN T $CHA R( OUTPUTS BYTE + 

.30H^' 

ELSE CALL PP I MT^CFAR ( OUTPUT ^BYTF + 37 H); 

END DiCHAR; 



D: PPOCEDTTRE (COUNT); 

DECLARE (COUNT, J) ADDRESS; 

DO J=i TO count; 

CALL D$CHAR(SHR(BYTE?TR, 4 :) ) ; 
CALL D$CEAR(BYTE?TR AND 0 FF): 
APTRADDR = APTRADDR ^ 1 : 

end; 

END d; 



/ %V \*0 

i ^4> 









'V 



PRINT^BCD: PROCEDURE (COUNT); 

DRCLARF (COUNT, H, E, L) 3 YTR; 



P^EXPON: PROCEDURE ( VALU ) ; 

DECLARE (VALU, X, CCUNTl) BYTE; 
DECLARE FLAG BYTE? 

DO X = 0 TO 2 ; 

FLAG = false; 

COUNTl = 30 H; 

DO VHILE VALU >= DECI(X); 

^^ALU = VALU - DSCI(X); 

FLAG = true; 

COUNTl = COUNTl + i; 

end; 

IF FLAG OF. (X >= 2 ) THEN 
CALL ??INT$CHA? (COUNTl ) ; 
ELSE CALL PRI .NT$CEAR ( ' '); 
ENDU- 
RE TURN ; 
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END p^ezpon; 



DC L= 0 TO f COUMT-1 ^ ; 

3CDfJU^:(L) = PYTEPTF; 

APT?ADDF=A?TPADL?. + 1 ; 

2ND : 

C4.LL PRINT$CHAR( ' '); 

IF PCDNUK(C0IINT-1 ) >= S 0H THEN CALL PP I N ? $CHAP. ( ; 

ELSE CALL ?RINT$CFAH( ' + ' ) ; 

C4,LL PRINT$CHAR( '0'); 

CALL PRINT^CHAP 
DO L=0 TO COUNT-2; 
j ,?:=RCDNUp;(L); 

K= SHR((K AMD 3F0K),4); /- EXTRACT THE r^SD FRO!^ THE ^YTE ’V 
CALL DiCEAR(K); 

J = (J AND 0^H); /■'' EXTRACT THE LSD FROM TEE PYTE "V 

CALL D^CHAR(J); 

END; 

J,K = (RCDNUM (COUNT-1) AND 7FH); /- GET RID OF SIGN -V 
IF K >= 40H THEN CALL PRI NT iCHAR ( ; 

ELSE CALL PR IM T $CHAR ( ; /* SIGN OF EXPOMET -/ 

CALL PRINTiCFAR( 'E '); 

CALL P^FX?OM(K AND 3FH); 

END primt^ecd; 



DOTSYM: procedure; 

FCFiRYTE (32 ) , ^CB^BYTEO) = 3; 

DO I = 0 TO 2; 

FCB$BYTE( 1+9) = ^I LE$TYPE( I ) ; 

end; 

IF MCN2 (15 ,FCE) = 255 THEN 

do; 

CALL P?INT( . ( 'ErPOP— GONE TO BOOT i'))', 
CALL ecot; 

end; 

END dotsym; 



DISKERR: PROC; 

do; 

CALL ?RINT( . ( 'DE ^ ' ) ) *, 
CALL boot; 
end; 

END diskerr; 



PFIMTDEC: PPCC(VALU^); 

DCL VALUE ADDR, I BYTE, COUNT BYTE; 
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rCL FLAG LYI’E; 

FLAG = false; 

DO I = 0 TO 4 ; 

COUNT = 30?; 

DO 'i/?IL^ value >= DECISd); 
VALUE VALUE - DECI5(l); 
FLAG= true; 

CO^UNT = COUNT + i; 

emd; 

IF FLAG OR (I>= 4) THEN 
CALL PPI MTC?AR( COUNT ) ; 
ELSE 

CALL FRINTCEAR(' '); 

end; 

RETURN ; 

END PRINTDEC; 



ST^TADDRPTR: PROC (OFFSET) ; 

DCL OFFSET AEDR; 

APTRADDR = EASE + OFFSET: 

END setaderptr; 



SETdASTdN: PROC ( OFFS ET ) ; 

DCL OFFSET BYTE; 

CALL SETA DDR?TR(6 ) ; 

CALL SETADDR?TR(?YTE?TH ^ OFFSET); 

END s^t$past$?m; 



COPY$SRT?L: PROC ADD?: 

/- COPIES FILE.SY.*'! TO MEMORY. LOOKING FOR Tv.O FO^FILLERS 
(lAH) IN A ROW -/ 

DCL K addr: 

K = 0; 

ro \iEiLE copying; 

CALL SETADDRPTE(K); 

BYTFPTR = GFTCHAR; 

K = K + 1; 

IE BYTFPTR = EO^FILLER THEN 

do; 

K = K + 1; 

CALL SETADDRPTRCO ) ; 

3YTEPTR = GETCHAP; 

IF EYTEPTR = EOEFILLSR THEN 

do; 

COPYING = false; 

EYTEPTR = 00H; 

end; 

end; 

end; 

P^TUPN k; 
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E'iD C0?T^SBT5L; 



RESET$LOCATICN ; PRCC(A) niR‘, 
DCL A ADDP; 

CFFSIT = A - TARLEiSTART ; 
RETURN OFFSET* 

END RFSET^LOCATIOi'l ; 



TARl: PROC; 

CALL PRIMT(. ( ' $') ); 

END TA3i; 



TAP2: PROC ; 

CALL TAFi; 
CALL TAPi; 
END TAE2; 



WRITEiENTRY; PROC; 

DO C^SF (FORK AND 07H ) ,* 

CALL PRINT( .( 'LABEL EN'^^Y *')); 

CALL PRINTS .( 'CONSTANT ENTRY i')); 
CALL PPINT( . ( 'TYPE ENTRY $')),* 

CALL PPINT( .( 'VARIABLE ENTRY ^')); 
CALL PRINT( . ( 'PROCELUHE ENTRY $')); 
CALL PPINT( .( 'FUNCTION ENTRY $')); 
CALL PPINT( . ( '^ILE ENTRY i')); 

CALL PT^INTf . ( 'USER LECLAREL ENTRY 
FND; /- CASE ’V 
END v/oite<entry; 



PRINT^ID: PPOC; 

DGL SIZ” byte; 

CALL SFTADDRPT^(e) ; 

SIZE = eyteptr; 

DO I = 1 TO size; 

CALL SETADDRPT^5(e + I ); 

CALL PRINT^CPARfBYTEPTR) ; 

^nd; 

CALL cplf; 

END PPINT^ir; 



PANC-FR: PPOC (A); 

DCL (A, BASE!) ALDP; 

BAS El = base; 

BASE = a; 

CALL SETiADDR$?TR(7) ; 
CALL crlf; 
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CALL TAP?; 

C^LL ^?IMT(.( WITH LC'.v VALUF $ )); 
IF (S^F(F0P1^,?) ^NC FOR^^^:ASK) TFFN 
CALL PRPJTiCEARdYTFPTR) ; 

FLSF CALL ?P L'l D^C ( ADLRPTR ) ; 

CALL PFIN?(.(' AND HIGH VALUE i'))] 
CALL SSTiADDR^PTPO) ; 

I^ (SHP(^0RM,7) AND ^ORYr.ASK) THEM 
CALL PRINT$CEAP (PYTZPTR ) ; 

ELSE CALL PR IN T $DEC ( ADLRPTR ) ; 

HASP = 3ASE1; 

END ranger; 



USER$rSEINEr: PRCC; 

DO CASE (SHR{ 3YTEPTR ,3) AMD t’ORMUASK); 
do; 

CALL P^INT( .( 'ENUMERATED TYPE - i'M? 

CALL print^id; 

CALL PRINT( . ( 'T’-^E VALUE IS $')); 

CALL SET^PAST$PN (7) ; 

CALL PRINT$D^C(3YTEPTR ) ; 

end; 

do; 

DO CASE {SH?.(3YTEPTR,e ) ^ND EOP'^MASK); 

CALL PRINT(.('AN ENUMEPATEI) SUBRANGE i')) 
DO ; 

CALL PRIMT(.('AN INTEGER SUBRANGE $')): 
LPN = LPN + 13; /»:• LENGTi^’ OE 4EH ENTRY 

END ; 

CALL PRINT(.('A CHARACTER SUBRAMCE i')); 
end; /'■' OF CASE =V 
CALL RAM GSR ( EASE ) ; 

end; 

do; 

CALL PRINT (.('AN ARRAY i ' > ) ; 

CALL SETADDPPTR(5) ; 

I = pyteptr; 

LPN = LPN + 1.? + (4-1); /- LENGTH OF E 

CALL crle; 

call TAB?.; 

CALL PR I NT (.('THE COMPONENT TYPE IS 
CALL S^TADDFPTR(10) ; 

DO CASE fytfptr; 

CALL PHIN'^( .( 'SCALAR 
CALL PRINT( .( 'INTEGER $')); 

CALL ?RINT( . ( 'CHA^ ^ ' ) ) ; 

CALL PRINTS . ( 'REAL $ ' ) ) ; 

CALL PR INT( .( 'STRING i')); 

CALL PRIi\T( .( 'BOOLEAN i')); 
end; /- OF CASE -/ 

CALL crle; 
call tab?; 

CALL PRINT(.(' IT REOUIRES i'M; 



C^LL S^TAILRPTR^e ) ; 

GALL PRINT$r^C( \£'DRDTH ) ; 

CALL PRIM'(.(' PYTIS OF S TOP A C-F S ' ) ) 

CALL c^lf; 
call TAR2; 

CALL PPli\'T( . ( 'TRFPZ 13/APE i')); 

call print^lic ( I ) ; 

CALL PPINT(.(' DIKENSICNS IN THIS ARRAY 
CALL SETADEPPTR(9) ; 

EC WHILE I <'> 01* 

APTRADLR = APT? ADD? + 4; 

CALL RANGEP(AEDRPTP. ) ; 

LPN = LPN +13; /- LENGTH OF -FH ENTRY -/ 

I = I - i; 

end; 

end: 

do; 

end; 

ro; 

C»LL P?INT( .( 'A SET OF i')); 

CALL SETADD®PTR(5) ; 

saveease = ease; 

BASE = addrptp; 

CALL PRINTS id; 

PASE = SAVEiEASE; 

end; 

do; 

CALL ?PINTf.('A FILE OF i'^): 

CALL SETADD?PT?(5 ) ; 

3AVEA=ASE = ease; 

EASE = aderptr; 

CALL PPi'JTiir; 

EASE = save-ase; 

EMI : 

do; 

CALL p3INT(.('A POINTEP CE TYPE ^ ; 

CALL SETADIRPTR(5 ) ; 

SAVE$3ASE = base; 

EASE = A E depth; 

CALL PRi:jT$ir: 

BASE = save$base; 
end; 

end: /- OF CASE "/ 

END USER$DF7INED; 



CRECH^COLLISION: PROC; 

/- LOOKS FOR ADDRESS IN COLLISION EIELI, THEM -EADS 

COLLISION CHAIN BACKWARD, PRIN^’ING I N "^NAf^^S . STOPS 
VEEN MO FURTHUR COLLISIONS OR TABLE =UM3 OUT. -/ 

CALL SETADDRRTRf 5) ; 

L?N = byteptr; 

CALL TAEi; 

CALL PRIMTf . ( 'HASH VALUE = i ' ) ) 
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i^m 



I^HIB 
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EMI- 



n i T L S ET i ' 5 ) ; 

CALL ??INf5i)rC(3YTZPTR) ; 

CALL S?TALrRPTF(C) ; 

17 A 1 1 P P T R = Z £ E THEN 

CALL dVI'IT(.(' and TEEPE ARE NO COLLISIONS i ' ) ] \ 

ELSE EO; 

SAVE$PASE = base; 

DO WHILE AEDRPTR TARL'ASTAR^; 

3ASE,A?T^5«DE° = ADERPT^; 

CALL ?T=INT(.(' WHICH CCLLILES V'lTH $']); 

CALL ppintAid; 

CALL setaeerptrO) ; 

CALL TAB2; 

end; 

17 AEDRPTR = 33R THEN 

CALL PRIN"’( . ( 'ANE THERE ARE NO EUPTHSR COLLISIONS 
L S D 0 t 

CALL P?INT(.(' ANY OTHER COLLISIONS OCCUR IN THEt')); 
Cj\lL CRL^t 

CALL PRINT( .( 'BUILT-IN SYMBOL TABLE $')): 

end; 

RASE = saveabase; 

end; 

CALL cfle; 
checx$coilisioin; 
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E.NTPY$?^ad: proc; 

CALL vpite^entry; 

CALL ?R.INT$ir; 

CALL cf”c:<accllision; 
CALL TABi; 

END sntry$heae; 



CHECH^TYPE: PROC(A); 

DCL A byte; 

DCL TYPE byte; 

TYPE = (SHR(A, 3) AND FORYf^ASX^; 

DO CASE type; 

SCALAR-ORE I NATE -/ 

CALL PRINT (.(' SCALAR ORDINATE $'}): 
/- INTEGER -V 

CALL PRINTS. (' INTEGER A ' I ) ; 

/- CHARACTER -/ 

CALL PRINT(.(' CHARACTER i')); 

/- PEAL -/ 

CALL PPINT{ .( ' PEAL $') ) ; 

/- COr^PLEX '-■/ 
do; 

SAVE$BASE = base; 

CALL SETiPASTApN(9) ; 

= ArrRPTP; 

CALL SETAEDP.PTR(4); 
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1 -? (Bv'ptp't;p_ 7CRr>^;\SK) = 37F. THIN 

CALL USZRiEErU'ED; 

ELSE CALL ?? I ES I P ; 

EASE = sav^$ease; 

ENL ; 

/- E 00 LEAN -V 

CALL PRINT ( . ( '^OOLEAM i')); 
end; /’- CASS '"■'PE -/ 

CALL cple; 

CALL TABi; 

END CHECK^TYPS; 



CHECE$TYPE$CONST: PHOC(A),* 

/- CHEC^' T'OP TYPE OE CONSTANT AND PRINT IT ''^'Z 
DCi A eyte; 

DC CASE a; 

/- 0 UNSIGNED IDENTIEIS? -/ 

CALL ?PINT(.(' UNSIGMEL IDENTIFIER t'))’, 

1 INTEGT^R ^'/ 

CALL PFINT(.(' INTEGER i')); 

/- 2 REAL */ 

CALL ?RINT( . ( ' PEAL $') ) ; 

/- 3 STRING -V 

CALL ^RIMTf . ( ' STRING $ J 

/- 4, 5, 6. 7 NOT DEFINED -/ 

• • • • 

> > > » 

/-' S SIGNED IDENTIFIER */ 

CALL ?FINT(.(' SIGNED IDENTIFIER i''); 
end; /- CASE -/ 

END CHECK^TYREiCONST; 



PPINTiPFT: ?ROC(A); 

DCL A byte; 

IF A = 12 TEEjN 

CALL PRINT (.('TEE ASSIGNED PPT LOCATION FOP TRE S3? I? i')): 
ELSE CALL PR I N T ( . ( ' TT^E ASSIGNED PRT LOCATI''^N IS 
CALL SET$PAST$FN La ) ; 

CALL ??INT$DTrC( apdrRTP ) ; 

CALL crlf; 

END print^prt; 



?FINT$LABEL; ^ROC; 

CALL fntry^head; 

CALL PRINT (.('THE ASSIGNED LA EEL VALUE IS 
CALL S^T$PAST$PN(7); 

CALL PRINT'sDEClArDRRTR) ; 

CALL crlf; 

END frlnt$label; 
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P^U'T$C0N'3T : ?POC I 

ICL (TY?E,SI7i:,I ) PYTSt 

CALL 7;b.ite$^nthy; 

CALL ppint^id; 

CALL CEECX$COLLI5ION; 

CALL PPINT(.(' TEE CONSTANT TYP" IS?')); 

TYPE = (SEH(?0pr<,3) A nl 3E^); 

CALL c^eck?type^const(type) ; 

CALL CRLT5’; 

CALL ?PIMT(.(' tee CONSTANT VALUE = ^')); 

IF TY^S = 1 THEN 

do; 

CALL SETiPAST^PN(T) ; 

CALL PBINT?LEC(ArERPT?); 

LPN=L?N+9; 

end; 

IP tY^E = 2 TEEN 

do; 

CALL SETiPAST?PN(7) ; 

CALL PRINT$ECD^8) ; 

lpn=l?n+i5; 

end; 

IE (type = 0) OR (TYPE = 3) OR (TYPE = 6) T-'^N 
DO ; 

CALL SET^PASTAPN(7) ; 

SIZE = EYTEPTP; 

DO I = 1 TO size; 

CALL SETiADEP^PTR(7^L?N + I I ; 

CALL ?RINT$CFAR( BYTEPTR ) ; 

end; 

LPN=L?N+SIZE+£; 

ENT ; 

PND pPINTSCONST; 



PPiNTiTYPE: PROC; 

CALL entry$eeal; 

CALL P?INT( .’ ( 'TEE PARENT TYPE IS 

DO CASE (SHP(F0RY,3) AND FOPN’NASP); 

CAIL ?RINT( .( 'INTEGER ?')); /- 0 */ 

CALL PRINT( . ( 'FEAL $')); /- 1 •'' / 

CALL PRINT( . ( 'CHAP $')); /- 2 -/ 

CALL PR INT( .( 'BOOLEAN $')); /- 3 -/ 

; /- 4 '-/ 

; /"•' 5 -V 
; 0 ❖/ 
do; /- 7 -/ 

CALL SET?PAST?PN ( 7 ) ; 

SAVE$BASE = ease; 

RASP = ADDRPTP; 

CALL SPTADDRPTP(4:) ; 

IE (PYTEPTR AMD FOR.'^MASK) = 0’’^ THEN 
CALL usepsdeeined; 

ELSE CALL PPINT?ID; 
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BAsr = save^t=as^; 
ene: 

EMD; /- 0? CASE 
ENT ??INT<iTYPS; 



PRINT$V/RIAPLE: PROC; 

CALL entpy^ptae; 

CALL ?PINT(.('TWF VA^IA^LE TYP^^ IS i')); 
CALL CFECKiTY?E''EO^'^) : 

CALL P?INT^P?T(7) ; 

END PPINTiVAPlASLE; 



SUE ROUTINE: PROC; 

ECL J ryte: 

CALL PRINT( .( 'THERE ARE t')); 

CALL SETiPAST$PN (7 ) ; 

j = ryteptr; 

CALL PFINTiEEC (^YTEPTR ) ; 

CALL ^RINT(.(' PARAMETERS i ' ) ) ; 

c^LL cfle; 

CALL SETApAST$?N(8l ; 

PAR^iLISTIMG (SU'^’^TN :=SUERTN+1 ) , APTRALDR = ALERPTR; 
?A?M^''IUM.(SURPTM ) = j; 

DO I = 1 TO J,* 

CALL tape; 

call print( . ( 'nc. S') ); 

CALL PRINTSDEC ( I ) I 
CALL TAEi; 

I? SPR( 3YTEPTR ,7 ) THEN 

do; 

IE SHRfPYTEP'I’R.e) THEN CALL PPINT(.(' FUNCTION $')) 
PL3E CALL PRINT( . ( ' VA.p S')); 

end: 

ELSE IF PYTEPTR ^ 4 THEN CALL ?pINT(.(' PPOCEPr'RE 
ELSE CALL PRINT(.{' VALUE S')); 

CALL PRINT( .( 'PARAMETER 0^ TYPE S')): 

CALL chsckStt?s(form) ; 

APTRADDR = APTPAEDP + ?; 
end; /- DO I */ 

CALL pRINT$PRT(10) ; 

CALL PRINT$PRT(12) ; 

CALL TA3i; 

CALL PPINT(.('THE LAPEL VALUE PRECEDING THE COLE IS S')) 
CALL SETSPAST$PN(14) ; 

CALL PPlNTSDEC(ArDRPTR ) ; 

CALL crlf; 

END SUPROUTINS; 



BRANCH: PROC; 

SRTBL = SBT3L + (3 PARMSNUM (SUBRTN ) ) ; 
SUBRTN = SUPRTN - i; 
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END Branch; 



PEIMT$?POC: PROC; 

CALL fntry^hfad; 
CALL SUER0UTIN2; 
EMC PFIflT$P^OC; 



PRINT^EUNC: PROC; 

CALL entry$eeal; 

CALL ??ir^T( . ( 'TEE EUNCTION TYPE IS $')); 
CALL SET$?AST$FN( 16) J 

FOR*^ = byteptr; 

C\LL CEECK$TYPE(EOR6.) ; 

CALL subroutine; 

END PRINT^FUNC; 



P?INT$EILE: PROC; 

CALL ENTRY$HEAr; 
END PRINT^EILS; 



SKIPPER: PROC; 

LO CASE(SHR(FORr' ,3) ANL EOR.MKA5E); 

do; 

CALL SETADDRPTR(e) ; 

SETEL = SBTEL + 10 + 5YTEPTR; 

end; 

SETBL = SBTBL + 16; 

do; 

CALL SETADDRRTR(5) ; 

SETBL = SBTT^L + 10 (2 - BYTEPTR); 

end; 

do; 

IE FORM = IFE TPFN SBTBL = SBTPL + 9; 
ELSE do; 

CALL SFTADDR?TR(6) ; 

SBTBL = SBTBL + 14 = + BYTEPTR; 

end; 

end; 

SBTBL = SBTEL + 7; 

SETBL = SBTEL + 7; 

SBTBL = SBTBL + 7; 
end; /* OF CASE -'/ 

END skipper; 



s']:kiiS: PROc; 

CALL crlf; 

CALL 

PR,IMT( . ( ' $ ' ) ) ; 

CALL crlf; 
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end; 



I MOVE; PROC rsOUHCE.DESTIN ,L) ; 

DCL (SOTIRCE .DESTIN ,L) ADDR , 

(SCHAR RASED SOURCE, DCHAP PASED DESTIN) PYTF; 
DO WHILE (L:=L - 1) <> 65535; 

DCHA?.=SCHAR ; 

DESTIN=DESTIN + 1 ; 

SOURCE=SOURCE + l ; 

end; 

END move; 



MA INLINE ;DO; 
CALL dotsym; 



BASE, 3ETBL = .MEMORY; 

L = COPY^SBTBL; 

CALL SETADDRPTR(4) ; 

FORM = byteptr; 

DC CASS (FORM AND FCRMMASK); 

CALL SET$PAST$PN(11 ); 

do; 

CALL SETADDR?TP(4); 

IE SEP (BYTEPTR, 4) TEEN CALL SET^PA ST$?N ( 17 ) ; 
ELSE CALL SET$PAST$PN ( 11 ) ; 

end; 

CALL SE'"5PAST$PN(11); 

CALL 3ETAPAST$PN(13) ,* 

CALL SET$PAST$PN(18); 

CALL SET$PAST$PN( 19) ; 

CALL SETi?AST$?N(9) ; 

/❖ this entry IS IMPOSSIBLE FOR THE FIRST ENTRY 
end; /- CASE FORM -V 

/- STARTING LOCATION OF THE SYMBOL TA^L^ -V 
TABLE$START = ADIRPT?; 

CALL M0VE(SBT3L,TA3LE$3TART,L) ; 

BASE,SBTBL = TA^LE$START; 

/- START -/ 

CALL SETADDRPTR(F) ; 

DO WHILE ADDRPTR <> 02H; 

CALL SETADDRPTR(4) ; 

FORM: = byteptr; 

CALL stars; 

DO CASE (BYTEPTR AND FORMMASK); 

/- LABEL 

do; 

CALL PRINTS label; 

SBT3L = SBTBL + 9 + LPN; 

end; 

/- CONSTANT '■:=/ 

do; 

CALL print^const; 
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SBT3L = 33TEL ^ LPN; 

EMI ; 

/'•' TYPE '■■ / 

ro; 

CALL FHINT$TYPS; 

33T3L = SBTBL + 9 + LPiK 

end; 

/- VARIABLE -/ 

do; 

CALL print$variable; 

SBTBL = SBTBL + 11 L?N ; 

end; 

/- PROCEDURE -/ 

lo; 

gall ff.int$phoc; 

SBTBL = SBTBL + 16 + LrN; 

end; 

/:;c function -V 
do; 

CALL PRINT$EUNC; 

S3TBL = SBTBL + 17 + LPN ; 

end; 

/- FILE -/ 

do; 

CALL P^INTiEILS; 

SBTBL = SBTBL + 7 + LPN; 

end; 

/- USE? DEFINED ENTRY -/ 

CO f 

CALL skipper; 
end; 

end; /- OF CASE */ 

IF SBTBL = ?ARU.iLlSTING(3U3RTN ) T?EN GALL -RANCF; 
BASE = SBTBL; 

CALL SETADDR?TR(2) ; 

end; 

CALL crlf; 

CALL PRINT(.('THE SYr^BOL TAELS HAS BEEN PRINTED. 

CALL boot; 

END mainline; 

END SYN!; 
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